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「 敵 飛行 場 を 攻略 せよ ! 」 
原子 力 空 評 エ ンタ ー プ ライ ズ の 出航 だ 。 
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原子 力 空母 エン ター プラ イズ を 中 心 
と する 第 7 艦隊 に 、 攻 撃 命令 が 発令 る 
tu. 目標 は 、2000 カ イリ 北方 の クラ 
スタ ー 島 に 建設 中 の 飛行 場 だ 。 


た だ ち に 、 護 衛 艦 3 隻 を ひき つれ て 、 
母港 を 出航 。 作戦 開始 だ 。 


し か し 、 敵 も 第 7 艦隊 の 北上 を 穴 知 。 


せん すい か ん か ん た い 


多数 の 潜水 艦 と 空母 を 中 心 と する 艦隊 


せん た く 


4A 〇 ① 英 の レベ ル を 選択 する 。 
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を 使い こなし て 、 敵 防衛 網 を 突破 し 、 
作戦 を 成功 きせ る こと が で きる だ ろう 
か 。 


RUN する と 、 ま ず 、 レ ベル を 聞い 
て きま す 。 敵 戦力 は 、 空 母 を も た な い 


せき 


レベ ル 1 、 空 母 を 1 隻 $ も つ レ ベル 2 、 
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空母 を 3 隻 も つ レ ベル 3 の 3 つか ら 6 選 
BRL £T. 最初 は レベ ル 1 を 選ぶ の が 
いい で し ょ う 。 な れ な いう ち に レベ ル 
3 を 選ぶ と 、 あ っ と いう ま に 敵 空母 の 
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艦載 機 の 集中 攻撃 を 受け る こと に な り 
% 7; 

レベ ル を 選ぶ と 、 い よい よ ゲ ー ム 開 
て す 。 画 面 に は 日 付 、 敵 飛 行 場 まで 
の 距離 、 艦隊 の 速度 が 表示 る れ ま す 。 


か ん て い 


テン キー を 使っ て 、 各 艦艇 に 指令 を だ 


じゅ ん よう か ん せん と う 
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Ск Aen 
1 ター ン は 2 時間 に 相当 し 、 変 互 に 
作戦 指令 を 行い ます 。 敵 の クラ スタ ー 
飛行 場 は 、12 時 の 方 向 (時 計 に 対応 し 
た 方 位 で 12 時 は 真 北 ) 、 距離 2000 カ イ リ 
の 地点 に あり ます 。 す で に 飛行 場 は 完 
成 し 、 着 々 と 航空 機 を 配備 し て いま す 。 
敵 飛行 場 を 潰 減 す れ ば プレ イ - の 勝 
b. 反対 に エン ター プラ イズ を 沈め ら 
れれ ば パパ ソ ツユ ン の 勝ち と な り ま す 。 


コマ ンド は 7 種類 。 テ ン キ ー で 指令 
vint iT. 
1. エン ター プラ イズ 

原子 力 空母 エン ター プラ イズ に 指 


令 を 与え ます 。 格納 庫 内 に は 攻撃 機 、 


戦闘 機 [д УН 17009- — MD 
待機 し て い ます 。 作戦 を た て て 、 順 
番 に 装備 させ て いき まし ょ う 。 装備 
SET し て 、 KOR i-t ЕН 
УА る こと が て で てき さき 
つ で も 発進 可能 と な り ま す 。 発進 後 
は 、 E Е 
敵 を 攻撃 し た 0 、 ЖИВОЙ k WB 

し た 場合 に は 、 renes 
HEL ++, それ 以外 の 場合 に は 、 
次 の ター ン の 最後 に 戻っ て きま す 。 
だ だ し 、 ee クア イ は プロ ペラ 機 の 
た め 帰 還 が や や 遅れ ます 。 
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原子 カタ 巡洋艦 ベイ ンプ リッ ジ に 指 
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А O 早期 警戒 機 が 敵 % 洋 艦 と 駆逐 艦 を 発見 。 


戦力 は 84 機 の 艦載 機 で す 。 
・ ト ムキ ャ ッ ト 
全天候 型 の 艦上 戦闘 機 で k ^ 戦 
開 能 力 は た い へ ん 高く 、 1 機 で 多 ' 
数 の 敵 戦闘 機 を 撃墜 する こと が で 
きま す 。 通常 、 片 道 600 カ イリ の 
МН ТН р ат HROS 
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装備 の ら ひ と つ を 選択 し て くだ きい 。 
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与え ます 。 対空 、 Xi. WE 
か ら ひ と つ を 選択 し て くだ さい 。 


4 。 ワ ッ デ ル 
ご えい € ちく か 


rs 7 ッ デ ル に - 指 令 を 与え 合 は 400 カ イ J ま て て す 。 戦闘 の 
ます 。 対空 、 AR b E b Š 他 に 、 攻撃 (УНЕ, ӨНЕ (対地 ) 
か ひと っ つっ を 選択 し て くだ きい 。 に も 使え ます 。 た だ し 、 攻撃 ・ г 

5. レー ダー | ЖЕНЕН k 5 2 b 

_ レ ー ダ ー を 使っ て 敵 を 捜索 し ます 。 ます 。 
艦隊 レー ダー は 、 半 径 150 カイ リ 以 Vs MS or d 
内 に 敵 が 存在 し て いる と 発見 し ます 。 ,, 全天候 型 の 艦上 攻撃 機 で す 。 攻 
b し 、 ホ ー ク アイ が 飛行 中 な ら ホ ー Sitz 1:300 9 4 、 爆撃 時 に は 
クア イ の レー ダー を 使う こと も で き 400 カ イリ を 進攻 する こと が で き 
ます 。 も ちろ ん 、 ど ちら の レー ダー 224 
も 洪水 艦 に は 無力 で す 。 ・ イ ント ルー ター 

6. 速度 оно ЕСУ. コ 


艦隊 は 最大 35 ノッ ト で 北上 する こ 
と が で きま す 。 0 を 選べ ば 運航 は 停 
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гр は 400 カイ リ 、 ptm | 
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0. End ます 。 

何 も し な いで 、 次 の ター ン に 移り ・ ブ ロー ラー の 
iu. 電子 戦術 戦 の た め の 攻 撃 機 で す 。 


コル セア II や イン トル ー ダ ー と 行 
| 動 を と も に し 、 英 の 対空 ミサ イル 
か ら 味 方 攻撃 機 を 守る た め の 妨 害 
電波 を 発 時 し ます 。 Ne Des を 
と も な わ ず い 攻撃 や 爆撃 を 強行 す 
Бк А t XXE DI げ て も 敵 
ミサ イル の 反撃 を 受 
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ОЖ ED 発射 す る 対 艦 
SHA ЕШ ҰЛАСТЫРА, 
ィ イル を 装備 し て いま す が 、 それ 以外 


の 戦力 は も っ て いま せ 4 ん 。 攻撃 用 の の 対空 UTE 


いせ ん し ょ うか 


ҚОР ты 


A ⑨ 早 期 警戒 機 が 前 駆逐 艦 の 攻撃 を 受け る 。 


う げ きた v 
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大 な 損害 を 受け る こと に な り ま す 。 ベイ ンプ リッ ジ と 同等 の 能力 を 持 LT サイ ル を 発射 し ます 。 


・ ホ ー ク アイ っ て いま す 。 が 、 対空 装備 は 、 ミサ ・ 浴 水 艦 エク タ 型 ノ ト ロフ 型 
早期 警戒 機 で びす 。 ホ ー ク アイ は 4 namo š サイ ル の みて 航空機 地 _ 海面 下 を 隠密 福 に 行動 し 、 ひそ か 
400 カ イリ まで 航行 し 、 前 方 お よ LUE サイ ル が 装備 それ て いな いた に 第 7 艦隊 に 接近 し て きま す 。 10 カ 
び 右 前 方 (た と えば 、 2 時 の 方 向 D, HARRIET bI LITS イリ 以内 に 接近 する 1155 
に 発進 し た の な ら 2 時 と 3 時 の 方 ませ ん 。 射 し て きま す 。 その 前 に 対 港 哨戒 機 
ÉI) 200 カ イリ の 英 を 警戒 し まほ す 。 ・ ワ ッ デ ル qud: で 発見 、 攻撃 し て くだ さい 。 
現代 の 海戦 で は 、 早 期 警 戒 機 の 運 防空 が 主眼 で 、 対 潜 装 備 は も っ て 。 ・ ク ラス ター 飛行 坦 
用 が 作戦 の 成否 を 決定 する こと に いま せん 。 迎撃 機 が 多数 集結 し て いま す 。 第 
な る で し ょ う 。 ridic 7 艦 隊 の 到着 が 遅れ れ ば 遅れ る ほど 、 
E O 敵 迎撃 機 は 多数 配備 きれ る こと に な 
対 洪 哨 戒 ・ 攻 撃 機 で す 。200 カ ・ 空母 レナ ム プ アン ポー ト Ае 
4 リ を 哨戒 飛行 し 、 KEE 姉妹 盤 で す 。 第 7 艦隊 を 発見 する —— 
見 する と だ ただちに RERET ым と 、300 カ イリ の 距離 で 攻撃 機 発 4. 
LIT UO 対 港 哨戒 で は 、 進 さ せま す 。 だ だ し 、 ЖОК» Кее 89 場合 は 、 ye か Gi 


"HM АТТЫЛЫ 5 る と は 限 潜水艦 を 発見 する こ と が 第 一 て す 。 対 
する た め 、 夜 間 の 運用 は 墜落 の 危 り ま せん 。 T 第 7 艦隊 に 40 洪 装 備 を 備え た 護衛 艦 は 対 港 装備 に し 


険 が 非常 に 高く な り ま す 。 カイ リ の 地点 まで 迫る と 、 対 艦 ミ サ て お く の が いい て し ょ う 。 
tee ae イル を 発射 し ます 。 e 夜間 に 対 港 哨戒 機 を 使う の は 危険 
対 潜 ヘ リュ プター тҮ. 100% 艦隊 レー ダー は 、 敵 の 攻撃 前 に 1 TOT. 入間 に 集中 的 に 運用 し ます 。 


A Y を 哨戒 飛行 し 、 722215 回 だ け 攻 撃隊 を 補足 する こ と が で き だ た が も い 対 港 チー ム を 全 機 発進 し て し 
見 後 、 た だ ち に 対 洪 魚 宣 て 攻 撃 ます 。 迎撃 機 を 飛ば し た り 、 abe 250. 発見 し た チー ム が 攻撃 失敗 し 
ます 。 空 中 ( に 停止 し て 攻撃 する た を 対空 装備 に 変更 する な ど 、 迎撃 人 た と き 、 2 次 攻撃 を か ける タイ ミ ング 
め 、 人 魚雷 の 命中 精度 は バイ キン グ 制 を 整え て くだ きい 。 E サイ ル を 失 す る こと が ある の で 、 数 チー ム 
より 高 《 な っ て いま す 。 ま た 、 バ が 発射 され た 後 で は 、 手 の うち よう as econo 


イキ ング と 同じ ょ うに 夜間 の 対 潜 。 が あり ませ ん 。 ー レ ペル 2 — 3 で 戦う 場合 に は 、 潜水 

哨戒 で は 危険 で す 。 Ic d 艦 に 気 を つか うと と も に 、 敵 空母 を 早 
・ ベ イン ブリ ッ ジ 敵 の 新鋭 巡洋艦 で す 。 第 7 艦隊 に 期 発見 する 必要 が あり ます 。 戦闘 機 や 

エン ター プラ イズ 直 衛 の 1 HET 80 カ イリ まで 接近 し て 、 対 艦 ミサ イ 攻撃 機 の 一 部 も 哨戒 に 利用 し 、 敵 に 発 
d. 対空 、 対 艦 、 対 港 の 装備 を も っ ル を 発射 し ます 。 見 され る 前 に 攻撃 を か み け まし ょ う 。 
で いま す 。 L1: PAPE EI 全速 で クラ スタ ー 飛 行 場 Cz pn] 
・ ハ リー 有 H ヒル зт 艦隊 に 40 カ イリ まで 接近 し て 、 か うと 、 一 度 に 多く の 敵艦 と 章 遭遇 する 


危険 が あり ます 。 発見 し た 敵 の 位置 を 
すし な が 運航 速度 を 決め まし ょ 
22 合 に よっ て は 運航 停止 し て 敵艦 
ё: サイ ル の 射程 距離 内 に 入る 時 
間 を 遅 ら す な どの く ふ う も 必要 で す 。 

分 類 シミ ュ レ ーション ゲー ム 

言語 BASIC 


た いせ ん し ょ うか せん すい か ん げき ちん 


АЗЫ COKE ЖЕ, 4(⑫ 攻 撃隊 が 敵 空母 レナ ム を 攻撃 。 


た いせ ん し ょ うか い き 


ム ⑮ 夜 に な っ て 、 対 潜 哨 戒 機 に 事故 が 発生 。 4(⑯ 前 潜水 艦 の 攻撃 を 受け る 。 A ⑫ 敵 艦載 機 の 攻撃 で 、 護 衛 艦 を 2 隻 を 失う 。 
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エン ター プラ イス フロ グラ ムリ ワズ スト 


10 CLS:SYMBOL(160,50), "ENTERPRISE" ,4,4,3:SYMBOL(119,150 ) , "1983(C ) イ マー ミ " ュ ソフ ト Ьу 

B.T.',2,1,5:CLEAR500 , 32000 

20 DEFINTA-Y:DEFSTRZ :DIMJO( 29 ) , SO( 29 ) , ZK( 16) , ZT(29 ) ,KS( 200 , JX C3) ,MCC 122, 8( 20) , HH 
(16) ,HXC 14) ,HY(14 ) ,EK(12) ,EJ(12) ,EQ(11 ) ,EH( 12) ,MX(44 ) ,MY (44) ,ZE(12) ,FQCA, 25 ,P(2) 
,FX(4,2),FJ(4,2):FORI=9T016: TFT く <5THENKS( I )=12ELSEKS( I )=2 

30 NEXT:KS=84 :RK=1 : DAY=1 : SP=25:S0( 17)=6:G0SUB1229 :EK( 12 )=1?99+599xRND : TM=INT (12% 
RND ) x2:EQ( 9 )=37+7※RND : EQ( 1 )=27+7xRND : P( 9 )=RND5+18:P( 1 )=RNDX5+16:JX(9 )=242』JX(1 ) 
=197:JX(2)=347:JX(3)=475:EH( 12)=12:Z=" キ p" FEY サレ タ ・・ 

40 FORI-0TO20:READZT(IO:NEXT:FORI-1TO7STEP2:READZK(CIO :ZK( 1-1 )=ZK( 1) NEXT: ZK( 4 )=Z 

К(3):7К(6)=7К(5) :7К(8)=7К(7) :FORI=1T09:ZT(1-1 )=ZK( 1T-1 )+ZT( 1-1) : NEXT:FORI-1TO9STE 

P2:READZK( 1 ) :ZK( 1 -1 )=ZK( 1 ) :NEXT : ZK(5 )=ZK(6) :ZK(7)=ZK(8) 

50 FORI=9TO12:READZE( 1 ) : IFT >6ANDI く 12THENZE( 1 )= "セン スイ カン ・"+ZE(T)+ "IM 

60 NEXT:FORI-9TO13:ZK(I1)2'S-3A- A #27" " !ZT( 1 )=" タ イセ ン ・ ヒ コ 9 タ イー"+ZT( 1 ) : NEXT:FORI-14TO 
16:ZK( 1 )="SH-3・ シ ー キ ング" " sZTCD )=" タ イセ ン ・ ヘ リ ・ ヒ コウ タイ ー"+ZT( 1 ) sNEXT 

70 MIDTH49,29 :COLOR4 :PRINT LA "J 9 エラ ン テ " 2 クタ" サイ" :iFORIS1TOS:LOCATEO,IX2:PRINTI'. 7+ 
A 29"  3:IFIS1THENPRINT" 9 モタ ナイ "ELSEPRINTI-1 "セキ 3 モリ 

80 NEXT:LOCATE9,9 

90 INPUT'A"72"9 3 ニュ ウリ ョ ク 57 クタ "サイ -- "。AiIFA く 10RA>3THENBEEP : GOTO90 :ELSE IFA=1 THEN 
EJ(5 )=1 :EH(5)=13:EJ(6)=1 :EH(6)=13:ELSEIFA=2THENEJ( 6) 21 :EH(6)=13 

100 GOSUB2139 

110 Q=9:FORI=11T09STEP-1 : IFEJ( І )=10REH( 1 )=9THEN149ELSEG0SUB1229 : IF1=11THENIFTM>4 
ANDTM« 20ANDEK ( I ) く 275ANDEK( I) >299THEN149ELSEEK( I )=EK( I )-SP-35 :ELSEIF 1 >1THENEK( 1 )= 

EK( I )-SP-35ELSE IFEK( 1+5) >3990REJ( 1+5 )=9THEN149ELSEEK( I )=EK( I )-149-R2: IFEJ( 1 ) く >2T 

HENEJ( I )=3 

120 IFI<5ANDI く <>2THENIFEK( I? >49THEN149ELSEEK( I )=49-R2\3ELSEIF1=2THENTIFEK( 1 ) >89THE 

N140ELSEEK(I)-280-R2Y2ELSEIFI-SORI-6THENIFEK(I)»300THEN140ELSEEK(I1)2300-R2:G0T014 

Q:ELSEIFI^6THENIFEK( 1 ) >19THEN149ELSEEK( I )=19-R2\6 

130 Q=Q+1 :MC(Q)=I | 

140 NEXT: IFQ=9THEN169ELSEUIDTH49 , 25: CONSOLE9, 7,0,0:G0SUB2140 : GOSUB2150 : FORI-1TOQ 
: り =MC( I) : IFU く 5THENG0SUB21 69ELSEG0SUB2299 

150 GOSUB1130:NEXTI:GOSUB2130 

160 FORI=9TO1 : IFEJ( 1+5) =1ТНЕМЕЈ(І )=1ELSEIFEQ( 1 ) く 8THENEQ( I )=EQ( TI )+8:EJ( 1 )=9:EH( 1 ) 
-0 

170 NEXT 

180 CLS1:LINE(420,119)-(580,127),PSET, 0, BF:PRINT'MIN 198x 年 6 A 'DAY'B "TM "W ШШ: 
PRINTZE(12)' 37" "EK(12) "カイ リ " :GOSUB2510 

190 РБІМТІРБІМТ"ШШ Task Force No.7 ШЕ :РРІМТ ‘1. CVN-65 ';:1-217:60SUB1010:PRINT"2 
. CGN-25 ';:1-218:G0SUB1010:PRINT'3. DD-986 ';:1-19:G0SUB1010:PRINT'4. DDG-24 "$: 
1-20:G0SUB1010 | | 
200 IF(S(?)=1ANDJO(?)=3ANDKS(?) >9 )0R(S(8 )=1ANDJO( 8 )=3ANDKS( 8 ) >8 ) THENEC=1 :PRINT " ( 

ツウ キ ・ サ イカ イキ ) レー タ "ー p" カエ マス ) " :ELSEEC-O 

210 INPUT "Command? (5-L-9*- 6= ソ クト " 9=End) ',A:IFA»6THENBEEP : GOTO210 :ELSEBEEP1 : BE 

EP9:ON А 6070430 , 599 , 629 , 659 , 689 , 1000 

220 IFTM>4ANDTM く 19THEN259ELSEFOR TI=9T016:GO0SUB1229 : IFJO( 1 < »3THEN240ELSEIFRND(C2) > 
.2THEN240ELSECLS1:PRINTZT(IO)' = 5*3 Лов !':BEEP:GOSUB1130:IFRND(3) > .8THENG=KS( I 
)ELSEG=1 

230 PRINTZK(I)G'* p" 245739 2 94592 $9 ><" :GOSUB759 :KS( I )=KS( 1 )-G 

249 NEXT | | 

250 FORI=9TO6: IFEJ( 1 ) く 3THEN299ELSEFORJ=9T016: IFJO(J) く >30RRND( 1 ) > . ア THEN289ELSE IF J 
く <9THENIFEK( I ) く 459ANDEH( I) 2HH( J) THENGOSUB2840 

260 IFJ>8ANDJ く <14THENIFEK( I ) く 249ANDEH( I )=HH( J) THENGOSUB2840 

270 IFJ>13THENIFEK( I ) く 149ANDEH( I )=HH(J)THENG0SUB2849 

289 NEXT 

290 NEXT:Q=9:FORI=9TO6: IFEJ( 1 )=2THENQ=Q+1 :MC(Q )=1 

300 NEXT:IFEK(12)<691THENQ=Q+1 : MC(Q)=12:EJ(12)=2 

310 IFQ=9THEN349ELSEFORT=1TOQ: り =MC( I ) :MIDTH49 , 25:CONSOLE9,7,9,9:COLOR4:PRINT"[ 3 
99% t2EsO'"I':'ZE(UO" 3" EPRINT "ホウ 9 イ "EHCU) "№, キョ リ "EK(U) "カイ リ " :U2128:G0SUB1200 : GOSUB 
1219:V=9:GOSUB1289 : IFUC12THENGOSUB1210ELSERK-6é + GOSUB1210 :RK=1 : GOSUB2430 

320 F-0:1FU«2THENGOSUB1440ELSE IFU« 7THENGOSUB1550ELSE IFU く 12THENGOSUB2679ELSEGOSUB 
1960 

330 GOSUB1130:IFAD»50THEN3020ELSENEXTI 

340 GOSUB2670:TM-( TM+2 )MOD24 : GOSUB2130 +KS=0 :FORI-0TO16:KS-KS4KS(IO : IF1=4ANDKS く 2T 

HEN3938ELSEIFJD( 1 ) く 3THENS( I )=9ELSES( 1 )=S( 1 )+1 : IFKS( I) >9AND( JO( 1 )=40RS( 1 ) >1 )THENP 
RINTZT( 1)" p" #00" :GOSUB1139 : JO( 1 )=9:SO( 1 )=9:HHC 1 )=9:S( 19-0 

350 IFKS( 1 ) く 1ANDJO( 1 ) く >5THENPR INTZT( 1 )" A キ カ ン tA", “УХУ ミタ --"':J0C(I)25:G0SUB113 
0 

360 NEXT:FORT=18T029 : S( 1 )=9 :NEXT :5=0 :EK(12)=EK(12)-SPx2: IFEK( 12) 251THENFORK-Q0 TO 
1:G0SUB1220 : SYMBOL ( 252*R2x2,146),' $" ,2,4,6:G0SUB1260 : NEXT : GOSUB1130 : PRINTZT(17)" 
A キラ イ = セ ゥ ショ ク 。 9{N 52 --':G0SUB2780:END 

370 P(2)=P(2)+1 .6※RND: IFP( 2 ) >49THENP( 2 ) =49 

380 FORI=9TO11 : IFEH( I ) >9THEN419ELSEIF1 く 2THENIFRND( 4 ) >.8THEN419ELSE3929ELSEIFRND(5 
)>.4THEN419 

390 G0SUB1220:R2-RND(6)X13: IFR2»11THEN390ELSEEH( I )=R2+1 :0=0 :FORJ=9TO1 1 : IFEJ(J)=1 
THEN499ELSEIFEH( І )=EH( J) THENQ=Q+ 1 


UA ii 
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400 NEXT:IFQ>1THEN399ELSETF1 く <2THENEKK( I )=399ELSEEJ( I )=3: IFIX7THENEK ( I )=699+RND( 1 ) 
x250ELSEEK ( I )=RND( 4 )x499+379 
410 NEXT:IFTM=9THENDAY=DAY+1 
420 6070110 

430 CLS1:PRINT' NEN ENTERPRISE BI: PRINT "ж 514° TAE uii d AT Мо.65" 
:PRINT "x ハイ スイ リョ ウ 75,700 t':PRINT'* トウ サイ キス 9  'KS't':PRINT'x* ヘイ ソウ Ал? Dey 
429: 94M sPRINT:PRINT'E メイ レイ サイ ト 9 J':PRINT'1. 22/91 T4':PRINT'2. カン パン 5-39 

440 INPUT'Command? (0-Епа) ',A:IFA»2THENBEEP:GOTO440 : ELSEBEEP1:BEEPO:0N А 607046 
0, 860:У-128: SESS A 

450 "ENTERP NO HI 

460 LC=9:MIDTH89 , 25: CONSOLES, 25,0,0:COLOR4: PRINTTAB(27);" ШЕ エン ター TUM 0343 RE 


- 


me :LINECQ,1»5- -(80, 12g 9.8 LOCATE9 , 2:PRINT'No. チー ム ;TAB(232; + > 1'; TABC38) 
PON OA 9 y P1 sa АДА 9 4 A Ж J 4" iLINECO,3)-(80,3), "— 4:FORT=9T016:GOSUB 
10408 : NEXT 


470 GOSUB1120:PRINT'h"7 チー ム 7 シ " ュ ン ヒ " 5722? (Max.'25-S;:INPUT' +, 9=End) ',A$:IFA 

$-''THENBEEP : GOTOA70 :ELSEA=VAL( A$ ) : IFA= 9THEN539ELSEIFA>17THENBEEP : GOTO4 70 

480 A-A-1:1IF(CA»4ANDSCA)7120RJOCA)? =5ТНЕМВЕЕР : GOTOA70 : ELSEIF € JO( A) >9ANDA>4 OR ( JO( A 
) >ЛАМОА<5ОТНЕМРКІМТ" 22-2 カン リョ 9":BEEP :GOSUB1 139 :GOT0479 

490 5=5+К5(А) : TIFS>25THENS=S-KS(A ) :PRINT ER" p" タリ マセ ン 。 '25-S' + イナ イ = シテ クタ "サイ " :В 

ЕЕР:6051/В1130:6070470 

500 IFAK2THENGOSUB1120: COLOR6:PRINT'V5E" ";:COLORA:INPUT'2 574 シテ クタ "サイ (1-2t»h5 2 

-1907"t 3=A"2y"+) ',C$:1FC$-' 'THENBEEP : GOTOS80 : ELSECZVAL (C$) : TFC く 10RC>3THENBEEP :G 

070500 :ELSESOK(A )=C 

510 IFA>1ANDA く STHENGOSUB1129 :COLOR6:PRINT "Yt" ';:COLORA:INPUT'?2 574 シテ クタ "サイ (1= 
199% 2=A"2y"+) ',C$:1FC$-"' "THENBEEP : 6070510 : ELSECSVAL (C$) : TFC く <10RC>2THENBEEP : GO 

TOS19:ELSESOC(A )=C+ 1 

520 PRINTZK(A)' ラ ュ ウト" ウ シュ ン ヒ " °°" : 605081130 :BEEP1 : BEEP9 : S(A )=1 : JO(A)=1 : IZA: GOSUB 
1040:60Т0470 

530 GOSUB1129:PRINT" ト " ノ $-A 2 ';:COLOR?:PRINT'22A?» '$;:COLORA:PRINT'- 7787222? (М 

ax.'40-DK;:INPUT' +, O-End) ",А%:ІҒАФ-" 'THENBEEP : GOTOS30 

540 A-VAL(CA$):IFA-ZOTHENGOSUB2130 : GOTOA30 : ELSEIFA»17THENBEEP : 6070530 :ELSEA=A-1 : IF 

SCA) -10RJOCA)Z25THENBEEP : GOTOS30 : ELSEIF ОСА) »1THENPRINT'Z27"- カン リョ 9 "ELSE IFJO( A )=9T 

HENPRINT'*2" zy5t" テ " ス "ELSE569 

550 BEEP:GOSUB1 1 39 : 6070530 

560 DT-DT*1:IFDT»8THENBEEP :DT=8:ELSE589 

570 LOCATE9,23:PRTINT "ヒコ ウ ・ カ ン セ イ Л 8 $-h マテ " Db" ケント" FA ーー Hit any key.':IFIN 

KEY$-' 'THENS70ELSEGOSUB2130 : 6070430 

580 DK-DK-*KS(CA): IFDK>49THENDK=DK-KS(A ) :DT=DT-1 :PRINT "カン ルリ ン A 7УЛ94 "д, '40-DK" 
t イナ イ 2 シテ クタ "サイ :BEEP : GUSUB1139 :GOT0539 :ELSEPRINTZK(A)" 2 DA?» 2 T9"XA' : 6050811 
30: BEEP1 :BEEP9: JOCA)=2: I2A: GOSUB1040 : GOTOS30 

590 A-A*16:CLS1:PRINT' BEEN BEINBRIDGE  NNN': IF ОСА) -STHENPRINT:PRINT'24A, ホウ キ 
$59 :-':60SUB1130:G0T0190 : ELSEPRINT'* »a^"V FSIS 179907 Мо.25 :PRINT'* Л 
イス イリ ョ リウ 8,500 t':PRINT'* AD ラー スバ “ロー タイ クウ 9・ ミ サイ ル " : PRTNTTAB( 1 2 ) " ター ター 2429 
・ ミ サイ ル 

600 PRINTTAB( 12 ) ° バー ファーン タイ カン ・ ミ サイ ル " :PRINTTAB( 12 ) 72057 タイ セン ・ キ " ョ ライ " :1 ОСАТЕӨ, 7:6 
0SUB1419:IFS(A)=1THENPRINT "メイ ルイ д“ * : 605081130 :G0T0U189 :ELSEPRINT "セン トウ УОК“ 9 シテ イ 
> aa io Ай, ЖЕ 

610 INPUT'(1-2429 2= タ イカ ン 3= タ イセ ン 9=Return) ',B:IFB>3THENBEEP:GOTO610:ELSEBEEP1:BE 
EP9: IFBZOTHEN180ELSESO(C(A)zB*5:SCA)21:608UB1410 : GOSUB1130 : GOTO180 

620 A-A*16:CLS1:PRINT' ШЕН HURRY H. HILL mw" : IF ОСА) -S5THENPRINT:PRINT'24AÀ, Ж 


9% シタ --':60S8UB1130:G0T0180 :ELSEPRINT'x* シュ へ ヘ " ツ コウ ソ ク ・ ク チク カン No.986' :PRINT'* A12 
サウ 7,800 t':PRINT'* ヘイ ツウ SS RAD 9405. A^ SPRINTTABCIZO 用 イプ "ーッ ao 
サイ ル 


630 PRINTTAB(12)'72092 タイ セン ・ キ " ョ ライ "iPRINT:GOSUB1416:TFS(A)=1THENPRTNT* メ イレ イ 2557 

: GOSUB1130 :GOT0189 : ELSEPRINT "セン トゥ Vb" 2 ラテ イ ラテ クタ "サイ 

640 INPUT'(1-5429 2= タ イカ ン 3= タ イセ ン Ü-Return) ',B:IFB»3THENBEEP GOT0649 :ELSEBEEP1 BE 

EPO: IFB=9THEN189ELSES0(A)=B+5 :S(A)=1 :GOSUB1419:GOSUB1 139 : GOTO180 

650 A-A-416:CLS1:PRINT' ШЫҒ WADDEL ШШ": IF JO( AD -STHENPRINT:PRINT'24A, 49% 59. 
' :60SUB1130:G0T0180:ELSEPRINT'x* 51479 ミサ イル ・ ク チク カン No.24':PRINT'* イス イリ ョ 9 З 

,370 t':PRINT'x ^4y5 シー スハ "ロー タイ クウ ・ ミ サイ ル "PRINTTAB( 12 ) "ター ター タイ クウ ・ ミ サイ ル 

660 PRINTTAB(12)'A-7?-» タイ カン ・ ミ サイ ル " :xPRINT:GOSUB1410: IFS(A)=1THENPRINT "メイ ルイ 272^ 1 

605081139 :GOT0189 :ELSEPR INT "セン トウ УОК“ 9 574 シテ クタ "サイ 

670 INPUT "(1= タ イク 9 2= タ イカ ン 9=Return ) ',B:1FB»2THENBEEP : GOTO670 : ELSEBEEP1 : BEEP9 : IFB 

-QTHEN180ELSESO(A)-2B*5:9(A)-21:G0SUB1410 : GOSUB1130 : GOTO180 

680 IFEC=9THENG0SUB796 : 6070180 :ELSEPR INT :PRINT "[ レー タ "ー UAM J':PRINT'1. カン タイ L-9" 

ー":PRINT "2。 "ZK(8) | 

690 INPUT'Command? (9=End) ',A:IFA»2THENBEEP : GOTO690 : ELSEBEEP1 : BEEP9 : 1FA=9THEN19 

9ELSEON А GOSUB799 , 769 : GOT0189 | 

700 CLS1:PRINT'ENNN 2724 レー タ "ー ШЕШШ" PRINT (ソウ サク ハン ケイ 150 カイ リ )":CIRCLE(489,65 ) , 159 
27, 43 PRINT:PRINT'S8"9 チュ ウ ・・" :Q=9:FORT=9TO4 : IFEJ( 1 ) く 20REH( I )=9THEN739ELSEIFEK( I 
) く 151 THENEJ( I )=2:Q=Q+1 : MC (Q =1 

710 IFEH( I )=10REH( 1 )=50REH( I )= ア OREH( I )=11THENX=EK( [ )*x .5:Y=EK( 1 )*x.346:ELSEIFEH( 1 ) 

=ЗОРЕН I )=9THENX=EK( I? :Y=9 :ELSEIFEH( I )=60REH( I )=12THENX=9 : Y=EK( I )x .4 :ELSEX=EK 1 ) 

x 866: Y=EK(I)*.2 

720 ONEH(I260SUB11690,1160,1160,1170,1170,1170,1180,1180,1180,1190,1190,1190 


730 NEXT:E!2.75:FORJ-0TO11:CIRCLE(489,65),147,6,.4,E! ,E! *.03,F: GOSUB1140 : CIRCLE( 
489,65),147,0,.4,E! ,E'*.03,F :E'-E'*,09A4 NEXT:J-212:GOSUB1140 

740 LOCATE9,3:PRINT"[ 7292 79) 1':G0SUB1130:IFQK1THENPRINT'7*14 f2':60T02780:ELS 
EGOSUB840 

750 LOCATE9 ,19:PRINT "Hit any key.':IFINKEY$-' " THEN759ELSEBEEP1 : BEEPO : RETURN 

760 FORI-7?7TO8:IFJO(CIO«»3O0RSCIOXD1THENS83Q0ELSECLS1:PRINT'B 'ZTCIO' BC'HHCIO "№, 400) 
イリ ー Ty21319)':CIRCLE(35,652,4,3,.7, , ,F:SYMBOL(20,712, 'TF-7' ,1,1, 31CIRCLE(G39, 65), 
600,7,,.97,.03 

770 CONNECT(39,652-(627,12) , ? i CONNECT(39,65)-(627,1182 , 1: IFKSCI?) -2THENCIRCLE ( 400 
,602,5,3,,3, ,,F 

789 CIRCLE(C400,65),5,3,.3, , ,F:SYMBOL(385, 71), E-2C  ,1,1, 3: IFHH( I )=12THENH2=1ELSE 
_H2=HH( I )+1 

790 PRINT:PRINT "サト "9 $39 --':Q-20:FORJ-0TO6:IFEJCJ) >1ANDEK (J< 6O1ANDCEH( J=HH( I 0 
REH( J )=H2 ) THENEJCJ)22:Q-2Q*1:MCC(GQ)02J:XCQ0 2 39*EKCAJO xCOSC. 15712 : YSEK C 2X . A995xS INC. 
1571 ) : IFEH( J)=H2_ THENY(Q)=65+Y ELSEY( Q )=65-Y 

800 NEXT:CIRCLE(39,652,600,7,,.97,.03,F1: IFQ>98THENFURK=1TOQ:CIRCLE(X(K) , YCK22,3,2 
, 6, ,,F:BEEP1:BEEPO:NEXT 

810 FORU-2TOS3:LOCATEO,U:PRINT' ": NEXT:LOCATE9 , 1 :PRINT "[ ソウ サク 99) 17:60 
5081130: IFQ<1THENPR INT "テキ エイ ナシ " :6051)82780:ВЕЕР1 : BEEP9 : GOTO830 

820 GOSUB849 : 60508750 

830 NEXT:RETURN 

840 FORK=1TOQ: り =MC(K ): IFU く 2THENPR INT "ヒコ ウタ イ " :ELSE IFM=2THENPR INT ‘5° ュ ン ヨウ 9 カン "ELSE IFM 
く 5THENPR INT " クチ ク カ ン " ; ЕІ ЅЕРРІМТ "77%" " ; 

850 PRINT','EHCUD "時 。"EK(M) "カイ リ " sNEXT: RETURN 

860 Q-0:FORI-0TO16:IFJO( 1 ) く >2THEN889ELSEQ=Q+1 :MC(Q)=1 

870 Q-0:FORI-QOTO16:IFJO( 1 ) く >2THEN889ELSEQ=Q+1 : MC(Q)=1 

880 NEXT: IFQ=9THENPR INT "カン ルン タイ キ チュ ウ / チーム M アリ マセ ン " : 605082780 : GOT0439 t ELSECLS1: 
GOSUB2750 : FORLZ1TOQ:UZMC(L):A21:PRINTL;ZT(UD) TABC192 'C' 5 : IU: 605082730 :PRINT " , "TA 
В‹27); 

890 IFU<20RM=4THENONSO(U )G0SUB949 , 969 , 950OELSEIFUXA4THENONSO(CU) – 160508970 ,969ELSE 1 
FU«?THENGOSUB94Q8ELSEIFU«9THENGOSUB960ELSE IFU« 14THENGOSUB980EL SEGOSUB990 

900 NEXT | 

910 LOCATEO,9:INPUT'h"7/ 3-49 ハッ ラン サ セ マ スカ ? (0-End) ',A:IFA»Q THENBEEP:GOTO910 : ELSEI 
FA-QTHEN930ELSEUZMC (A) : IFJO(M)=3THENBEEP : GOTO910 

920 LOCATE9 。9:LC=1 : INPUT "ホウ イハ ナン M- 5727? ( 1-128 )  ',H: IFH»120RHX 1THENBEEP : GOT 
0920:ELSEBEEP1:BEEPO:HH(U)-H:GOSUB1130:PRINTZT(UD', 'ZK(UD' Aso» !':BEEP1:GOSUB2 
470:BEEPO0 : GOSUB1130 : GOSUB1290 : JO(U) 23: GOSUB2760 : GOTO910 

930 LOCATE9 9: INPUT "トト " ノ チー ム 9 カン ハン カラ 21572)? (9=End) ',A:IFA»Q THENBEEP : GOTO93 
9:ELSEIFA=9THEN438ELSEM=MC(A ) : IFJO(M)=10RJO(U)=3THENBEEP : GOTO930 : ELSEBEEP 1 : BEEP9 
: PRINTZT(U)" 9 52/953 ナイ = モト "ミシマ ス " :GOUSUB1139 :BEEP1 :BEEP9 : JO(CU)21:9(U)21: GOSUB2760 
: GOT0939 

940 А=А+1 

950 А=А+1 

.960 А=А+1 

970 А=А+1 

980 А=А+1 

. 990 PRINTAX199 "カイリ ) ' :RETURN 

1000 LOCATE9 , 190 :РРІМТЅТРІМОФ‹ 38," 'O:LOCATEO,10:INPUT'95»39 У7К“? (Max. 35) ',A:I 
FA>350RA く 9THENBEEP : GOTO1000 : ELSEBEEP1 : BEEPO : GOSUB1130 : SP2A: 6070180 

1010 PRINTZTK( 1 ):TAB( 22) ; : IFJO( T )=5THENPRINT"( チン ホ " ツ >.  J':RETURN:ELSEIFSO(CIO-ZQOT 
HENPR INT : RETURN : ELSEPRINT"( 947% : ІЕ50‹1 )=6THENPRINT 297 ;ELSEIFSO(CIO-7THENPRINT " カ 
ン "jELSEPR INT "セン " ; 
1020 PRINT" УЕ" ) 

1030 RETURN 

1040 LOCATE9 , 1+4: IFJO( 1 )=5THENCOLOR2ELSEIFS( 1 )=10R( JO( 1) >1ANDJO( I ) く 5 )THENCOLOR6E 
LSECOLOR5 

1050 PRINTUSING'34, ";1+1;:РРІМТ" "ZT(I)TAB(23)ZK( 1 )TAB( 39 ) ; :PRINTUSING' $8 + 
'sKSCI25 : 605082730 : PRINTTABCS5725; :0N. JOCIO4*160SUB1060,1070,1080,1090,1100,1110 :PR 
INTTABC?712; :PRINTUSING ## B" ;HHCIO:RETURN 

1060 PRINT "カク ノウ コ f*4';:RETURN 

1070 PRINT "ソウ 9 ヒ " カン リョ ウ " ; RETURN 

1080 PRINT "カン ハン 34+"; RETURN 

1090 PRINT "シュ ッ ト " ウ $ai5'; 

1100 RETURN 

1110 PRINT't"»XV 29"';:RETURN 

1120 COLORA:FORU-22TO023:LOCATEO ,U:PRINTSTRINGS$(50," 'O:NEXT:LOCATEO , 22: RETURN 
1130 FORU-0T02500 : NEXT : RETURN 

1140 IFQ<1THENRETURNELSEFORK=1TOQ :Ш=МС CK) : IF J=EH(W ) THENBEEP1 : BEEPO : CIRCLECXCUD , Y 
Е429:3,2-,6,;5Е 

1150 NEXT:RETURN 

1160 X(I)=489+X:Y(I)=é5-Y:RETURN 

1170 X(1 )=489+X:Y( 1 )=65+Y :RETURN 

1180 X(1I)=489-X:Y( 1 )=65+Y iRETURN 

1190 X( 1 )=489-X:Y( 1 )=65-Y :RETURN 

1200 IFTM<50RTM>19THENL INE(9 , 9+V)-( 639,46+V) ,PSET, 1 ,B:LTNE( 1 , 1+ り )-( 638, 45+V ) , PSE 
T,0,BF:RETURN:ELSELINE(0,04UV)-(639,45*V) , PSET, 5, ВЕ : RETURN 
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1218 LINE(0,46*V)-(639,69*V) ,PSET, RK, BF : RETURN 

1220 КАМООМІ2ЕТІМЕ :R=RND( 8 )x565+ 16 : R2=RND( 4 )*29+1 : RETURN 

1230 605081220 : IFK=1 THENTIFR>X(9)-79ANDR く X(9 )+96THEN1239 

1240 SYMBOL(R*15,2120,'9',3,1,3:SYMBOL (R*34,32) , "uv" ,2,2,3,2:CONNECT(R*11,20)-CR*4 
3,20),3: FORQ- 11090: BEEP1:BEEPO0 : ҒОРО=0Т040 : МЕХТО, Q: GOSUB2470 : XCK) =Р : RETURN 

1250 PRINT" Fire! " ; :FORUZOTO20:BEEP1:BEEPO : NEXT: RETURN 

1260 BEEP1:FORU- 010200: NEXT : BEEP9 :FORU=9T0599 : NEXT : BEEP1 : FORU-0T01000 : NEXT : BEEPO 
: RETURN 

1270 GOSUB1229: IFK=1THENIFR>X(9 )-99ANDR く X( 9 )+99THEN1279 

1280 CUNNECTCR,22)-(R+39 ,21 )-(R+69, 22 )-(R,22 ) , 3:1:SYMBOL (R* 19,192, 9 , 3,1, 31FORU-7? 
TOSSSTEPA6:CIRCLECR*U,242,2,3,. 7: МЕХТ:Х(К ) -R: BEEP1:BEEPO : RETURN 

1290 V-128:FORK-1TOKS(U) : IFUC14THENGOSUB1310ELSEGOSUB1220 : CIRCLE(R, R2*4U2,4,3,.5, 
.4,.1,F : BEEPT:BEEPO 

1300 FORUZOTO150:NEXTU,K: RETURN 

1310 G0SUB1220:IFV-O0THENMX(CK) ZR:MYCK) ZR2:G0SUB2930 tELSEHX CK) ZR: HYCKO SR2*V:CL 73 


1320 CONNECT(R,R2*V)-CR*12, R2*U) , CL:iCIRCLECR*6,R2*V*1),6, CL,.4,.6,.9,F:BEEP1:BEE 


PQ : RETURN 

1330 GOSUB1360:FORU-150T0129STEP-1:CONNECT(1,U)-(638,U)2 ,CL : GOSUB1380 : IFLC=1 THENG 
OSUB2470 

1340 NEXT:GOSUB1390:L C20 : RETURN 

1350 G0SUB1360:FORU-24TO1STEP-1: CONNECT (1, U+V)-(638,U+V) , CL : NEXT : GOSUB1390 

1360 IFTM<SORTM>19THENCL=9ELSECL=5 

1370 RETURN 

1380 CONNECT(266,148)2-(266,152)-(263,152)-(263,146) , 3: RETURN 

1390 IFCL=9THENCL=1 

1400 CONNECT(1,V)2-(638,V) , CL:RETURN 

1410 IFSO(A)=9THENRETURN ELSEIFSO(CA)Zó6THENPRINT'2425';ELSEIFSOCA)Z?THENPRINT " 942 
>. ま ELSEPRTNT ЖЕУ”; 

1420 PRINT’ セン トウ 9 »2"i»t" "; : ІР5(А) =0ТНЕМРРІМТ "カン リョ ウ "ELSEPR INT "チュ ウ 

1430 GOSUB1130 : RETURN 

1440 FORJ=0T01: IF JO( J) Z3ANDSO( J) Z 2ANDHH(C J) ZEHCUDANDEKCUDX601THENF =F +1 : AC(F )=J 
1450 NEXT:A-26:60SUB2810: IFF く 1THEN2999ELSES1=9 : А=0 :FORJ=1TOF :G=AC(J) : IFEJ(MU)=1THE 
NRETURNELSEIFG>16THEN1599ELSEJO(G )=4:G0SUB2879 : GOSUB2060 : GOSUB 1 139 : PR INT " クウ ー タ イー ク 
り ・ ミ サイ ル く く フ エニ リク ス >> ハウ シヤ !':G0SUB1130:COLOR6:FORK-1TOKS(G)x2:G0SUB1930 : NEXT : COLORA : 
PRINT 

1460 S-KSCGOX(CRNDC12x.7*2) : IFS52bEQCUO THENS-EQCU) 

1470 H-EQ(U)/?TXRNDC2) : IFH»KS(GGO THENHZKS(G) 

1480 GOSUB2010:G0SUB2050 :KS(G)=KS(G)-HiEQ(MU)=EQ(U)-S :55=55+5 : IFEQCW)< 1THENE ЈИ) = 
1: RETURN 

1490 GOSUB2050:NEXT : RETURN 

1500 А-А%1:ІҒА<2ТНЕМУ-128:605082070:60508В1130:6051/82060 

1510 G0SUB1130:PRINTZT(G)' ヨリ タイ クウ ・ ミ サイ ル く く タ ー タ ー> > Луз» !':G0SUB1130:COLOR6:FORK-1T 
08: GOSUB1 250 : NEXT : GOSUB1130 : COLORA :S=8※RND(5) : IFSPEQCU) THENS-EQ(CU) 

1520 IFS>9THENGOUSUB1549 : GOSUB1130 

1530 GOSUB2770:EQ(U)=EQ(U)-S:SS=SS+S:S1=S:IFEQ(W)<1THENEJ(W)=1:RETURN:ELSE1630 
1540 У=0:РОВК=51+17051+5 : 60701610 

1550 FORJ=0T04: IFJO(J) く >30RS0(J) »20RHHCJO < DEHCUDORKSCJOX«1THEN1560ELSEIF (CC J220R J7 
3)ANDEK(W)«30120RCCJX20RJ-24) ANDEK (W <401 OR ( J< 2ANDSOC J) Z 1ANDEK (И) 4601) THENF =F+1: 
АССР) =Ј 

1560 МЕХТ:А= 7: 605082810 : IFFK1THEN2000ELSEGOSUB1950 : C20 : FORLZ0TO2: IFFQCU-2,LO«STH 
ЕМС-С%1:06051/82990 

1570 NEXT:PRINT "テキ カン タイ Ало ! " : ВЕЕР1 : 605082470 : BEEP9 : GOSUB1130 : GOSUB1130 : PRINTZ 
ECU);:60SUB1130: IFC^OTHENPRINT', ホカ 7J5"-M»»z'C'tt !':G0SUB1130:ELSEPRINT', ホカ ナシ 
":6051/В1130 

1580 GOSUB1139:TFM>4THENA=M-5 3% 20r 

1590 FORJ-1TOF:G-2AC(J): IFG^»17THEN2340ELSE JOCG) 24: IFEJ(M)=1THEN1699ELSEIFSO(G)=1A 
NDU»4THENIFP(CA) »QTHENGOSUB1640ELSE1600ELSEIFSO(G)Z2THENGOSUB1 720 

1600 GOSUB1130:V-20:G08SUB1350:V-7128:608SUB1350 : NEXT : RETURN 

1610 IFVU=9THENX=MX(K ) : Y=MY(K ) :ELSEX= HXCK) : YzHYCK) 

1620 GOSUB1220:SYMBOL(X*10*R2/2, POI *',2,1,6,2:BEEP: IFRND( 1 ) >.7THENG0SUB2479 
1630 NEXT:RETURN 

1640 GOSUB2870: GOSUB2940 : GOSUB1130 : GOSUB2890 : PRINT ' クウ ー タ イー クウ 9・ ミ サイ ルル くく す サイト" ワイ ンタ トー>> A 
чэт 1" : 605081130 : СО ОВЗ:ҒОВК=1Т0К5‹6 ) x2: GOSUB1930 : NEXT : СОГ ОРДА : PRINT : IFA=2THENS=K 
S(5)※(RND(2)+1 .3)ELSES=KS(G)※(RND( 1 )+。8 ) 

1650 IFS>P(A)THENS=P(A) 

1660 GOSUB1 139:H=P(A)/3.5※RKND( 2 ) : IFH>KS(G )THENH=KS(G ) 

1670 GOSUB2010:60SUB2780 :P( A)ZPCA) -S188zS84*S8:KS( OG) ZKSCG) -H: RETURN 

1680 NzN*1:IFCC1THEN1690ELSEFORL-0TO2: IFFJCU-2,L ) 1 THENNEXT ELSEIFRND(C1)». STHENG 
050В1700:РРІМТ "フリ ケー トカ ン 2 メイ チュ ウ ! 3FQCU- -2,L)- ғасы- 2,L ) *1:RETURN: ELSENEXT 

1690 GOSUB1710:PRINTZE(UD" Z メイ チュ 9 !!" :EQCM)= EQ: RETURN 

1700 GO0SUB1220:SYMBOL (FX(U-2,L) *R2-16,26*RNDC6)x5) , '*',4,2,2:G0SUB1260: 605081130 
: RETURN 

1710 GOSUB1220:SYMBOL ( 300 *R2x2-17,25*RNDC?7)*6),'*' ,4,2,2:G0SUB1260 : GOSUB1130 : RET 
URN | 

1720 605082870 :В=0 :FORUA-STO6:IF JOCUAD)«30ORJOCUA) >2ОЕННСОА)< ЈЕНИ) ОКК ( UA ) < TOREK( 
4) »600THEN1 739ELSEB=UAi JO(B)=4 


1730 NEXT:IFB»OTHENPRINTZT(BO)" £ テン カイ tU !':E-KSCG)*1:FORK-E TOE+KS(B )-1 :G0SUB13 
19:NEXT:GOSUB1139 i 


1740 GOSUB2940:H=0:IFW<STHEN1800ELSEIFP(A)<1THEN1800ELSEGOSUB2890:H=P(A)*xFND(4): 
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1750 M-0:1FB»OTHENIFRND(5)2».8THENM-KS(BOELSEIFRND(CO) >. 5ТНЕММ=1 

1760 IFHX1THENPRINTZK(G)' A テキ コウ ケ " キ 7 カイ ヒ tU ! 'ELSEGOSUB2910 : PRINTZK(G)H;Z:KS(COG 
)=KS(G ) -H 

1770 605082780 : IFB>8THENIFM く 1THENPRINTZK(B)′ A 7*2" 1" 605082780 : ELSEGOSUB1790:P 
RINTZK(B)M;Z:GOSUB2780:KS(B)ZKS(B)-M: IFKSCBOX1THENB-O 

1780 IFKS(G)»0THEN1800ELSEGOSUB2780:PRINTZT(G)' A t"2XV 59 -."60701910 

1790 У-128:ҒОРК-Е ТОЕ+М-1 : 60701610 

1800 GOSUB1139: IFG>1THEND=2ELSED=1 

1810 IFU«»12THEN1850ELSEPRINT'A^A"25" t カイ シ I" 380SUB1130 :FORK-1TOKS(G)xD*2:GOSUB122 
‘@: IFRNDCA) >. 6THENSYMBOL (R, 25*R2/5),' 9" ,2, 3, 2ELSESYMBOL (R, 30*R2/50, 1 ,4,2,2 

1820 FORU-0TO70:BEEP1:BEEPO : NEXT : IFRND( 1) >. "? THENGOSUB24 70 

1830 NEXT:GOSUB2780 :PRINTZE(C12)' A ' 3 + А0=А0+К5‹6 ) ж0 ; IFAD250THENPRINT'24X9 セリ EA 
ELSEIFAD»30THENPRINT'24À ! カイ メリ スッ セ ドン I" 3P( 222-100 : ELSEPRINT ' 239A 

1840 GOSUB1130:GOTO1870 

1850 РРІМТ "タイ カン ・ ミ サイ ル く く 人 ハー フ °ー ン >> ハリ シャ 1":6051/81130:С01086:ҒОРК-1Т0К5(62ж2:6050В193 
0: МЕХТ : СОГ ОРД :РРІМТ : №0 : ЕОРК=1Т0К5(6 ) ж0: IFRND(6) >. 6THENGOSUB1 680 

1860 NEXTK : 605081130 : ІЕМ 1THENGOSUB2370 : 60701870 : ELSEU-3:G0SUB2650 : 605081130 : IFC 
«1THEN1878ELSEGOSUB2380 : IFM く 1ANDD く 1THEN1879ELSEGOSUB2499 

1870 605082789 : H220 : PRINT:PRINT:IFUZ12THENPRINT " チ " ; :t H2-8XRND(2) :ELSEPRINT "DY"; :H 
2-(4xC*8) *xRND(C8) 

1880 PRINT "・ タ イ ・ ク ウ ミサ イル セリ キン 1':60SUB1130: IFB>9THENPRINTZK(B ) ” カク ラン 77УЛ9% 作り セイ ir 
:60SUB1130:H2-2H2/4xRND(C2) 

1890 GOSUB1139: IFH2>KS(G)THENH2=KS(G) 

1900 IFH2X1THENPRINT't"»t ミサ イル コウ ケ " キ 9 カイ ヒ セリ I " ELSEGOSUB1920 : GOSUB1130 : PRINTZK( 
6)H2』Z:KS(G)=KS(G )-H2 

1910 GOSUB2780 : RETURN 

1920 V-128:FORKzH-*1T0H*H2:6G0T01610 

1930 605081250 : IFRND( 8 ) > .8THENPRINT ` " $ 160SUB2470 

1940 RETURN 

1950 ON U-1GO0SUB2960,2970,2970,2980,2980 : RETURN 

1960 A=2:FORJ=9TO04: IFJO(J)=3ANDSO( J)« >2ANDHH( J )=12THENIF((J=20RJ=3 ) АМОЕК Ы) <401) 
OR((J<20RJ=4 ) ANDEK(M) く 591 ) 08 J く 2ANDS0(J)=1ANDEK(U ) く 691 )THENF=F+1 :ACCF )=J 

1970 NEXT: IFFX«1THEN200QELSEA-2:FORJ-1TOF : G2AC CJ) : JOCG) 24: IFS0CG) 2 3ANDP CA) 20 THENG 
OSUB1640ELSEIFSO(G)-23THENGOSUB1 720 

1980 IFJ«F THENGOSUB20560 : V=9 : RK26:G0SUB1210 : РК=1 : 605082430 : 2128: 608UB1210 : ELSEG 
OSUB2780 

1990 NEXT:RETURN | 

2000 605081130 :РРІМТ" 177° + カノ ウ チー ム A アリ マセ ン " :G0SUB1 139 : RETURN 

2010 IFS»OTHENGOSUB2920 

2020 GOSUB2470: IFH»QOTHENGOSUB2910 

2030 GOSUB1130:G0SUB2770: IFH く 1THENPRINT "7 が か "クリン 。 セ " ン キ 7"»" "ЕІ ЅЕРРІМТ "ミカ タ "ZK(G) 
H;Z 

2040 GOSUB1130:RETURN 

2050 605082780 : V=9 : 605081200 : V2128: GOSUB1200 : RETURN 

2060 PRINT "テキ *"ZE(W)" AYYY I' sBEEP1 : 605082470 : BEEP9 : V=0 : FORKZ1TOEQ(CU) : GOSUB1310: 
NEXT:GOSUB1130:PRINT'V/ 227 'EQ(U)'!':6G0SUB1130: RETURN 

2070 СОММЕСТ(258,1562-(258,153)-(259,151)-(270,151)-(270,156)-(269,156)-(269,160 
)-(308,160)-(308,163)-(302,168)-(299,168)-(299,173)-(263,173) -(263,168)-(258,163 
)-(258,160)-(260,160)-(260,156)-(258,156) , 31PAINT(299,1612 ,3: G0SUB1380 

2080 IFJOC18)«45THENCONNECT(130,170)-(136,173)-(159,173)-(165,170)-(165,167)-(159 
.167)-(159,164)-(155,164)-(155,157)-(140,157)-(140,164)-(136,164)-(136,167)-(130 
,167)-(130,170),3:PAINT(150,158),3:FORO-0TOASTEP2: CONNECT (135, 158+0)-(169 , 158*0) 
‚3; NEXT 

2090 FOROZ0TO128STEP128:IF JO(0/128*19) =5ТНЕМ№21 20 

2100 CONNECT (04370,171)-(04376,173)-(0*387,173)-(0*393,1712-(04393,168)-(0*3892,1 
68 )-(0+389 。161 )-(0+384 , 161 )-(0+384 , 159 ) -( 0+379 , 159 ) -(0*379,1612 -(0*374,161)-CO*3 
74 ,168 )-(0+379 , 168 )-(0+379 ,171 ),3 

2119 PAINT(0+371 , 169 ) , 3:FORN=9T02STEP2 :CONNECT( 0+379 , 163+N)-(0+323,163+N) ,3:МЕХТ 
2120 NEXT:RETURN 

2130 UIDTHA0,20:CONSOLE0,12,0,1 

2140 V-2128:G0SUB1200 : GOSUB1210 : 605082070 : RETURN 

2150 /=0 : 6050812090 : GOSUB1210 : RETURN 

2160 IFM<2THENMS=EQ(M )ELSEMS=8+RND※S 

2170 FORK=1TOMS : 6G0SUB1229 : IFEHCU)« 7? THENMXCK) -R2* 614ELSEMXCK) -R2 

2180 GOSUB1220:IFMS«20THENMY (K) xR2x2ELSEMY CK) ZR2*RNDC1)x22 

2190 NEXT:CLS1:PRINT'494'EHCUD) 'M - 3272 ヒラ イ 77994 I ' sBEEP1:GOSUB2470 : BEEP9 : GOSUB 
1139:PRINT "タイ カン ・ ミ サイ ル "MS " キ tut», メイ チュ ウ 777 109 イナ イ 1":605081130:Т-11:ІЕТМ<50ЕТМ>1 
STHENCR=0:CL=7:ELSECR=5:CL=0 

2200 IFEH(UX«?7THENGOSUB2450ELSEGOSUB2460 

2210 IFMS«10RT«1THEN2250ELSEFOR J-217T020 : IFRND(9)< .50RJOCJ) =50850( J) < »6THEN2240EL 
SEPRINTZTCJ)' タン SAM く く ラ ー ス ルル 7 ロー>> ハリ シャ 1" £COLOR6:FORLZ1TO4:GOSUB1250 : NEXT : PRINT : COL 
ОРА: FORL=1T04 | | 
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2220 IFRND(2)».8THENSYMBOL ( MXCMS) *6, MY CMS) *32 ,x' ,1,1,2,2 :BEEP : MS=MS-1 : GOSUB2470 
: IFMS く 1THEN2259 

2230 NEXT 

2240 NEXT:GOTO2200 

2250 60SUB1139:PRINT : IFMS く 1 THENPR INT " タイ カン ・ ミ サイ ル tyt 9 F セリ ! " + GOSUB2780 : GOTO 
2150 

2260 FORK=1TOMS : 605082530 : NEXT | 

2270 GOSUB1130:PRINT:PRINT'xxxx ヒ カ " イ シラ" ョ ウキ ョ ウ жжжж" 1FORJ-17T020 : IFJO(J)=5THEN2289 
ELSEPRINTZT(J)TABC152; : IFKSC.D«1THENPRINT' ЕЛ ナッ "ELSEIFKS(J) く 2THENPRINT '235A"EL 
SEIFKSCJ)«3THENPRINT'219A'ELSEPRINT'24A, ホウ キ セサル 3 エナ イ --':J0(J)55 

2280 NEXT:GOSUB2440 : IFJO( 17)=5THEN3919ELSEG0SUB2149 : GOTO2150 

2290 CLS1:PRINT'494'EHCUO', スイ チュ ウ = 39/2 スイ シン オン !':BEEP1:GOSUB2470: BEEPO : GOSUB 
1130:PRINT'19h*9-t"a324 4 ホン tty, メイ チュ ウ X7" 10%М74 !':G0SUB1130:PRINT'355"4£ モク ヒョウ 
;COIPRINT'AO4'EHCUD "M, キョ リ "EK(U) "カイ リ J ユウト "9・ ホ "カン I" :60SUB1130:G60SUB1130:T-11:608S 
UB2600 

2300 GOSUB2490: IFEJ(U )=10RT く 1 THEN2328ELSEFORJ=18T029 : IFRNDC4)€ . 608 JO C J) 550RS0(CJ) 
< »8THENGOSUB2470:G0T02310:ELSEPRINTZT( J)" 54t£v-:t"3544€72092»» Лә» !':tCOLOR?:FOR 
_=1702:6050В1250 : NEXT : PRINT:COLORA:D!-7.1:60SUB2610: IFEJ(U)-21THEN2320 

2310 NEXT:GOTO2300 

2320 PRINT:IFEJCUDX»1THENFORL-1TO4 : GOSUB2570 : NEXT : GOSUB2330 : 60702270 : ELSEPRINT'1 
ウト" ワ ・ キ " ョ ライ N 229», キケン 2 9"9959 !':60SUB2440:G0SUB2330 :G0T02150 

2330 SYMBOL (580,25),STR$(T),2,2, CR: RETURN 

2340 IFEJCU)-1THEN2360ELSEGOSUB20 70 : GOSUB1130 : PRINT:PRINTZT(G)" ヨリ << く ルー ファ ー ン >> АУ 
シャ !  160SUB1130: COLORÓ6 :FORK-1TO6 : GOSUB1250 : NEXT : COLORA :PRINT : GOSUB1130 : №0 : FORK= 
1706: IFRNDC?7)2».8THENGOSUB1680 

2350 NEXTK:GOSUB1130 : IFNX1THENGOSUB2370 : GOTO2360 : ELSEU-3: GOSUB2650 : GOSUB1130 : IFC 
く 1THEN2369ELSEGOSUB2389 : IFM« 1ANDD« 1 THEN2360EL SEGOSUB2400 

2360 GOSUB1130:NEXT:RETURN 

2370 PRINT'397"t $29A?*4 · · " ; 50702780 

2380 M-0:D-70:FORL-0TO2: IFFJCU-2,L)21THEN2390ELSE IFFQ(U-2 ,L) »2THENM-M*1:F JCU-2,L) 
-1:ELSEIFFQ(U-2,L ) >9THEND=D+ 1 

2390 NEXT:RETURN 

2400 PRINT' ホカ 7UJ"-M32';:IFMP»OTHENPRINT' 34A 'M;:G0SUB1130 

2410 IFD»QOTHENPRINT' 235^ 'D:G0SUB1130 

2420 RETURN 

2430 605082930 :5ҮМВОЕ (300,39), "Ф &&',3,1,4:S5YMBOL(430,38) , ` axi Mill He." »2,1,CL:RE 
TURN 

2440 FOREE-0TO2:G0SUB1130 : NEXT : RETURN | 

2450 GOSUB2480:FORK-1TOMS: CONNECT (МХК), МҮК) ) -CMXCKO +4, MY CKO) , CREMXCKO SMXCKO-61 
4: CONNECT CMXCKO ,MY(K) )-(MX(K)+4,MY(K) ) , CL: NEXT : RETURN 

2460 GOSUB2480:FORK-1TOMS: CONNECT CMXCKO , MY(K ) )-(MX(K)+4 ,MY(K) ) 。CR : MXCK )=MXCK )+61 
1: CONNECT CMXCKO ,MY(K ) )-(MX(K)+4 ,MY(K) ) ,CL : NEXT : RETURN 

2470 FORUU=9TO599 : NEXT : RETURN 

2480 SYMBOL(580,52),STR$(T),2,2,1:T-T-1:SYMBOL (580,52) , STR ま (T) ,2。2,3:RETURN 

2490 IFTM<SORTM>19THENCR=9ELSECR=5 

2500 SYMBOL(580,25),STR$(T),2,2,CR: T-T-1:SYMBOL (580,25) , STR ま (T) ,2,2, 31RETURN 
2510 PRINT'7"79"4' ; : IFSPZOTHENPRINT' ウン コウ 742 チュ 9 ウ "ELSEPR INTSP "ノリ ト &25"39 チュ ウ 
2520 RETURN 

2530 IFRND(9) く .6THENRETURN 

2540 A-0:F0RJ-20TO17STEP-1:IFJO( J) -5THEN2560ELSE IFRND (7) >.4THEN2569ELSEG0SUB1229 
: IFJ218THENSYMBOL ( JXCJ-17) +82, 3A? *RNDC1) x6) , "ж" , 5,3, 6ELSESYMBOL ( JX CJ-17) *R2x2, 14 
8tRNDC 32352, *",5,3,6 

2550 50SUB1269 :A=1 :KS(J)=KS(J)+1 :PRINTZT(J)" p" ヒ タ ダッ ン !!":GOSUB1130:RETURN 

2560 NEXT: IFA=9THEN2549ELSE3919 

25/0 A-0:F0RJ-20TO17STEP-1:IFJO(J) -5THEN2599ELSEIFRND( 7) ».4THEN2590ELSEGOSUB 1220 
: IFJ218THENSYMBOL ( JX C J-17 )+20+R2, 153), "Ф" , 1,3, 6ELSESYMBOL ( JXCJ-17) 416*R2x2,146) , 
'9',1,4,6 

2580 G0TO2550 

2590 NEXT:IFA=9THEN2579ELSE3919 

2600 60SUB1220:BEEP1:BEEPO: CIRCLE(R*15,58),11,7, , , ,F1CIRCLE(R415,525,5,7, , ,,F 1X7 
R:EJCU)Z2: RETURN 

2610 IFJ»17THENLL-2ELSELL-KS(I) 

2620 N-0:FORL-1TOLL:GOSUB1220:1FRND(2)»D! THENPRINT'1 ホ ? ン X4$19 tZ" --"ELSEN-1:G 
OSUB1220 : SYMBOL ( X-R2-10 , 49-*RNDC12x5),'x',3,2,2:60SUB1260:EQ(U) SEQ(UO +1: РРІМТ "1 Ж 
Ға ! 

2630 GOSUB2470:NEXT : IFN=1 THENU=2 :GOSUB2650 

2640 RETURN 

2650 PRINT:PRINTZE(UD ; : IFEQCUDX1THENPRINT' A kh“? ナシ "ELSEIFEQ(U)<U THENPRINT' A 
$39M'ELSEPRINT' 2 か "キチ ン セリ !':EJ(UD-1 

2660 GOSUB1 139 : RETURN 

2670 FORI-9TO16:IFJO( I ) く >30RKS( 1 )=9THEN2?729ELSEQ=9 :FORJ=7T011 : IFEJ(J)=1THEN2689E 
LSEIF ((1<14ANDEK( J)< 201 )0R( I >13ANDEK( J) く 191 ) )ANDHHK( I )=EH( J)THENQ=1 : U- J 

2680 NEXT:IFQ=9THEN2729ELSEUIDTH49 , 20 : CONSOLE8,12,0,1:G0SUB2150:A-1:S( I?21:FORK- 
QTOKSCI?-1:G0SUB2470: IFIX14THENGOSUB1270 :D! =, 4:Е1 5Е605081230:0!=.6 i 
2690 NEXT:G0SUB1130:PRINT'E “2Т(10" (€ "7К(І)" ) ]":PRINT "9 イ "HH( 1 ) "и, £asU'EK(U)' 
カイ リ 2 テン カイ 319" :605082780:РКІМТ "テキ 'ZE(UO" 用 ウケ サン 1" 5BEEP1 : 605082470 : BEEP9 : GOSUB24 
70 : GOSUB2600 : GOSUB1 1 39 : PR INT " タイ セン ・ キ " ョ ライ くく アス ロウ ク > > ハッ リラ ャ | 


ANE “2” A > AN 

の I "n Ж * 
f AAE ДАК Қ ӨЗ 4 

X fA y 


й "AD j мӯ ом 7 клет unl w^ "ri АУРУ МЛН. 0 0 e" М oct AW 4 | PEU VAA АЕ” Y) 2. PE CI こも FT - 4 "€ か Фу 
У, ЧУА, РАЛЫҚ 7) Жтт, Ж ПРУТ н ~^ Ка у УОЛ» KM "WS P A a Mr 3 "PO f г А 2 Uu で `x тИ т P * MO Hu Ve PAN »: 2 9” Ue ^ 
7 7, CS a y У Жу} АТ e gk io^ n 4 人 た ЖҮ) WEA aa 2 é А А | ç өл 7 К . КУЛ € 
uf % / 4 ҚАЖУЫ ҰРЫ MA WA N Y ` \ А; унф 4 , * 『 , м 4 t , 
М У К қ 


2700 GOSUB1130:FORK-20TOKS(I)-1:SYMBOL(CXCK)-5,30), 'Fire! ',2,1,2:FORMMz0TO1:FORU-QO 
TO049 : BEEP1:BEEPO : NEXT : GOSUB1220 : NEXT : GOSUB2470 : GOSUB2470 : NEXT : GOSUB2610 
2710 LOCATE9,18:PRINT'Hit any key, : IFINKEY$-" ' THEN2710 
2720 NEXTI:RETURN : 
2730 IFJOCIO- QTHENPRINT'z Yk" ' ELSEIFSO(I)= 1ТНЕМРКІМТ" РУК?" s ELSEIF I >80RSO(I )=2 
THENPRINT'397"£';ELSEIFSOCIO-3THENPRINT'A"75"£" :ELSEIFIC7THENPRINT' >" 562" ;ELSEP 
| RINT'749*9V'; 
|! 0 RETURN j 
2750 10САТЕ@,@:РЕ1ЇМТ"Г カン ハル? マン 3939 1 ( タイ キ +29" DK" キ ) ':RETURN 
27060 DT=DT-1* DK- -DK- KSCU):GOSUB2750:LOCATEO , A: PRINTSTRING$(38, ' " ) sLOCATEO , 10 : PRI 
NTSTRING$(38,' "): RETURN 
2770 IFS く 1THENPR INT " コウ ケ " キ 29A?«4 --'ELSEPRINT'7»£'S'*t 2 か "キツ イセ リ | 
2780 GOSUB1130:G0SUB1130 : RETURN 
2790 IFEJ( T )=1THENA=A+1 
| 2800 RETURN 
| 2810 IFA-6THENFORJ-18TO20STEP2 ELSEFORJ-18T020 
2820 IFJOCJ)«5ANDSOCJ)-A ANDEK(U) く <41THENF=F+1 iAC(F )=J 
2830 NEXT:RETURN 
2840 CLS1:PRINTZT(J)" A':PRINT' Ж? "ННСЈ) ñ, キョ リ " EK( 1 ) "カイ リ Z7':BEEP1:GOSUB2470: 
BEEPO:PRINT' 7% "ZE(I)” R V92"*9 セリ OORT E ICT КС ТК ШС > TONDIS TE TREN 225% 
2850 IFJ«7THEN2860ELSEPRINT'395" t2 97" : IFRND( 1 <, БТНЕМРЕІМТ "3 5", ヒ カ か" イ ナシ "ELSEP 
RINT", ji:IFRND(2) く .6THENPRINT: PRTNTZK(J)* 1 "7:KS(J)=KS(J)-1 :ELSEPRINT ” セ " ン メ ツ 59 
" sKS(J)=9 
2860 GOSUB 750 : RETURN 
2870 PRINT:PRINTZT(G);:IFU=12THENPRINT " A"29" +" $ELSEIFW<C2THENPRINT" セン トウ"; ELSEPR 
ІМТ" 397^ $ 4 
2880 PRINT "・29 イ キ = テン カイ !':V-128:FORK-1TOKS(G) :G0SUB1310 : NEXT : GOSUB1130 : RETURN 
2890 IFM=12THENPR INT "ミラ " ョ ウ ク ウ ・ サ イヒ " キ 799) ''ELSEPRINT't"»$?5 カン タイ ・ コ "エイ キ ! 
2900 V-0:FORK-1TOP(CA):G0SUB1310:NEXT:GOSUB1130 :РРІМТ "ソノ 227 "PCA) 1  550SUB2780:R 
ETURN 
2910 V-128:FORK-1TOH: 60701610 
2920 V-0:FORK-1TOS:GOTO1610 
2930 IFTM«S5ORTM»19THENCL 27? : RETURN: ELSECL 20 : RETURN 
2940 IFU-12THENFORUzZ197TO174STEP-1:CONNECT(0,U2-(639,U)0 , 6: GOSUB2470 : NEXT 
2950 RETURN 
2960 GOSUB2930:CONNECT(300,42)-(306,45)-(334,45)0-(340,42) - C340, 39) -( 334, 362- ( 330 
,36)-(330,29)-(325, 29)-(325, 26)- (315, 26)- (315, аз» (310, 29)- (310, 36 )- (306, 362-<30 
0;39)- (300, 42) ,CL :PAINT(329 , 27 ) , CL : FORU= QTOASTEP2: CONNECT (304, 30*U)-(336,30*U),C 
L: NEXT * RETURN 
2970 505082930 : CONNECT ( 310 ,42)-(316,45)-(327,45)-(333,42)-(333,39)-(329,38)- (329 
,32)-(324,29)-(319,29)-(314,32)-(314,38)- (310,39) - (310,42) , CL:rPAINT(C320,40) , CL :F 
ORUZQTO2STEP2:CONNECT(310,33*U)-(333,334*U) , CL: NEXT : RETURN 
2980 605082930 : СОММЕСТ ‹ 303,45) -‹ 300,37) – (300,34) -‹303,34)- (303,26) - (307, 26) -‹313 
,28)-(313,34)-‹340,34)- (340,36) - (337,36) -(337,41)- (332, 45) (303,45), Сі: РАІМТ (315 
,432 ,CL:RETURN 
2990 GOSUB1220:GO0SUB2930: IFR»270ANDR« 370 THEN2990ELSEIFL- 1THENIFR»FXCU-2,0)-30AND 
R«FX(CU-2,0)-*60THEN2990ELSE300Q0ELSEIFL-2THENIF CR^FX(CU-2,0)— —30ANDR«FXCXU-2,0)-- 60)O0R 
(R»FXC(CU-2,12-30ANDRKFXCU-2,12* 600 ТНЕМ2990 
3000 CONNECTCR,。 43)-(R+6,。45)-(R+13,45)-(R+19。43)-(R+19,49)-(R+15,32)-(R+15,33 ) 一 (в 
-*4,33)-CR*4,39)-CR, 400 - CR, A3») , CL:PAINTCR4*8,44)0 , CL: PAINTCR*14,35), CL : FOURU= 8T02STE 
P2: CONNECT(R,35*UD-CR*19, 35+), CL:NEXT:FX(U-2, Los R: RETURN 
3010 PRINT:PRINT:PRINT:PRINT "оос Game os VOX" :PRINT'92t» YAL !!"':PR 
INT'Enterprise RD, 991 J УУУУ 9 19Ь99 !'':GOTO3040 
3020 PRINT:PRINT :PR INT "####% Game Over V9999e9xr':PRINT'9?2t» セイ コウ '!':PRINT'Ent 
егргізе К t2» / フ " ク ン A':PRINTTABC?)'7*5"2 セン シラ = トト "マル テ " ア ロウ 9 !':GOTO3040 
3030 PRINT:PRINT:PRINT:PRINT '»000€X Game Over ОООО" :PRINT'39h"95 カノ ウ F ヒコ ウキ 
+ 5" ナク ナ ゅ タ V':iPRINT'92t» 9 ホ り キ t9"JA? エナ イ ・・・ 
3040 605082440 : 605082780 : PRINT : PRINT "上 ヒ カ " イ ] ・・ "3:1FJOC17)-25THENPRINT'25*5" 1 ホカ 


3050 A=9:FORI=18T029: IFJOCI )=5THENA=A+1 

3060 NEXT:IFA>8THENPRINT "カン ティ イ "A; 

3070 A=9:FOR1=9T016:A=A+KS( 1 ) : МЕХТ:РРІМТ" ヒコ 9 キ " 84-AiPRINT "上 セン pJ ・・ ^;:A-20:FORI- 
5T06:60SUB2790 : NEXT: IFA>9THENPRINT "29 ホ ""A" ホカ `j 

3080 A-0:FORI-2TO4:G0SUB2790 : NEXT : IFA>98THENPRINT "シュリ ョ ク カ ン "A ELSEPRINT 

3090 A=9:PRINTTAB(8) ; : FORI=7TO11 :G0SUB2799 : NEXT : IFA>9THENPRINT " セン スイ カン "A; 

3100 A=9:FORI=9TO04:FORJ=9T02: IFFJCI, 7) =1ТНЕМА=А+1 

3110 NEXTJ, 1 :IFA>9THENPRINT ” 709-ЮУГА; 

3120 IFSS>9THENPRINT " ヒコ ウキ "SS 

3130 IFAD>58THENPRINTTAB(8)ZE(12)" カイ メリ 

3149 END 

3150 DATA A,B,^,B,C,^,B,^,B,4,B,C,D,E,^,B,C, I72-7* 24A" ,^" 77" UIST ,AU— Н. KER ,297" 
ROCIO (276° 763994,7" SEIS 1994, ソ 9 キ ・ ケイ カイ タイ ー Же 144: トム キャ ウト 』 А-7: 2ЉЕ711,А- 
óE- イン トル ー タ " ,EA-6B: 7? ロー ラー , ヒ ー2 じ ・ ホ ー ク アイ , Vt ҺЬ- E2224, Toe- hh: E3994(,92"^ 17395» - he ー フ * 
3160 DATA2322»- *V"-VL- th, クチ ク カ ン ・ WAS UT 4, 20" - АА, 70" - ^ –- КА, 279: ,t792- I, トロ フ ・, ト 
ВТЕ IIIA C392 789 


M 


FM-7, NEWT, 77 


異 星人 の 侵略 に た ち 向 か え / 


СӘ 


BB CHI 7-075, 


EUCLIDEAN 
FIELD 


ぼう ぼう 


AXE. ЖН, XH. 宇宙 の 果て か ら 
ェ エイ リア ン が 地球 侵略 に や っ て き な た 。 
世界 の 軍事 大 国 は 、 総 力 を あげ て 応 
戦 を は じ め た が 、 敵 の 強力 な 戦車 の 前 
E urs 
En し て 、 ひじ ょ 5 
E ^ ila 
され た 。 Ais RR v っ きい 装備 きれ 
て いな い が 、 分 厚い 装甲 で 体 当 た り し 
た り 、 プ ロッ ク を ぶつ ける こと に より 
敵 戦車 を 破壊 で き る こと が 判明 。 ONE 
車 の レー ザー に る え 気 を つけ れ ば 、 x= 
角 に 戦う こと も て きる 。 
キミ は 5 台 の 装甲 車 を ひき つれ て 、 
最後 の 戦い を 挑ん だ 。 
3075 
RUN する と 、 画 面 右 の イン ジ ケ ー 
ター に HI SCORE、 SCORE、PLA 
YER, ENEMY, SCREEN が 表示 
され ます 。PLAYER は 残り oisi 
の 数 、 ENEMY は その 面 に 出現 する 
KEE DX, SCREEN は 現在 、 何 面 
目 て ある か を 示し て いま す 。 プ ブロック 
の 配置 と 味方 装甲 車 、 英 戦 車 の 位置 は 
乱数 で 決定 し て いる た だ ため 、 毎 回 変わ り 
2É1. 
フィ ー ル ド に 配置 8 きれ る プ ブロッ ク の 
うち 、 〇 は 動か みす こと が で きま す が 、 
… は 動き ませ ん 。 〇 プロ ッ ク は 、 ト ュ 
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ロ テ ン 式 に いく つ で も お し て いけ る の 
С. 53 US U 135; 

テン キー を 使っ て 、 ブ ロッ ク を 移動 
させ な が ら 、 敵 戦 車 に : 近 づき 、 体 当 た 
り し て 破壊 し て くだ きい 。 ブ ロッ ク に 
は きま れ て 動け な く な っ だ とき や 、 危 
険 が 迫っ た と き に は [| で ワー プ ' す る こ 
と も て きま す 。 だ だ し 、 ス ユア : は 500 


点 マ イナ ス る れ ま す 。 
敵 戦 車 を 破壊 する と 、10 x 面 数 の 得 


点 を 得る こと が で きま す が 、 敵 戦車 の 
中 に は 1 台 だ け 指令 車 が いて 、 こ の 戦 
車 を 破壊 する と 50 x SCREEN 得点 で 

JE ЫГ E УД УЕ з 
に 得点 が 表示 る され ま す 。 な お 、 1 画面 
2)97-T6t,50xPLAYERXE 
NEMY XSCREEN が ボー ナス と し 
て 加算 きれ ます 。 

敵 戦 車 の 数 は 、 1 面目 が 3 台 、 続 い 
て 1 面 ク リア ー す る た びに 1 台 ず つ 増 
加 し 、8 面 目 に は 10 台 に な り ま す 。 た 
JL. 9 面目 で 5 台 に 戻り 、 そ の 後 は 


5 台 か ら 10 台 まで を くり か え を し ます 。 
9 面 以 降 は 、 指 揮 車 が パワ ソー アッ プ 
AA PCT, 


УУ =ОШ тиа 
し ます 。 ワ ー フ "し だ いと き に は 、 [ue 
お し て て くだ さい 。 

分 類 アク ショ ン ゲ ー ム 
言語 BASIC 


PUT 用 文字 デー タ 
文字 デー タ を 格納 

フィ ー ル ド 上 の キャ ウラ タタ 
敵 の 座標 

プレ イヤ ー の 座標 

プレ イヤ ー の グラ フィ ッ ク 
英 の グラ フィ ッ ク 


文字 の X 座標 
文字 の Y 座 標 
文字 の パレ ッ ト コ ー ド 


プロ グラ ム の 内 容 
初期 設定 


ーーーー READ DATA 


文字 、 プ レイ ヤー、 敵 の デー タ を DA 
TA 文 より 読み 込む 


メイ ン ル ー チ ン 


1 面目 を EQ= 2、PQ=5 と する 
TITLE 

タイ トル の 表示 

ーーー INFORMATION 
ゲー ム の 説明 

SCREEN 

画面 作成 

MOVE PLAYER 

プレ イヤ ー の 移動 

ma LASER 

敵 が レー ザー を 発射 

ーーー MOVE ENEMY 
敵 の 移動 

再び 一 MOVE PLAYER — に 戻る 


サブ ルー チン 
—— PUT CHR 
文字 の 表示 
ーーー PRINT 


GGG w OW 
su o с 
e ی‎ 


А(0923%, /\ АЗАУ, 


文字 の 表示 
ーーーー SCORE 
スコ ア の 表示 


敵 の 消去 、 得 点 計算 、 消 滅 音 の 発生 
ーーー PRINT SCORE 

指揮 車 の 得点 を フィ ー ル ド に 表示 
ーーー PUT PLAYER 
装甲 車 を 表示 

ーーー MOVE PLAYER 

装甲 車 の 移動 チェ ッ ク と 移動 
WARP 


ワー プ 


LIGHT 

ライ ト の 放射 

LASER 1 

レー ザー 

LASER 2 

パパ ワー アッ プ 後 の 指揮 車 の レー ザー 


ば く は つ お ん 


ブロ ッ ク の 消去 爆発 音 

— DELETE PLAYER 
装甲 車 の 最後 

ーーー REPLAY — 


や うこ うし や 


ム ② 右 上 に いる の が プレ イヤ ー の 装甲 車 だ 。 


DELETE ENEMY — — 


DELETE STONE hiiia 


リプ レイ : 
MOVE ENEMY 
敵 の 移動 

ーーー РОТ:ЕМЕМҮ 
HKD РОТ 


DATA 
各種 デ ゲー タ 


作者 の プロ フィ ー ル 


小明 正 幸 (22 歳 )。 法 政 大 学 工学 部 在 
о. u | 
去年 の 5 月 に FM-7 を 購入 。 この ブ 
ログ ラム は 1 週間 祭り で つくり 、 そ の 
後 細か い 点 を 修正 し て 完成 させ まし だ 。 
ノロ リピ レイ ディ ノノ を 持て いし 
の て で 、 早 ご < 子 に 入れ て アセ ンプ ノ プラ ピル 
戦 し て み だ い と 思 つ て いま す 。 | 


AQ7272. FF F*02 í ЕЛИ ГЕП 


Ё EUCLIDEAN FIELD ブロ グラ ムリ スト | 


| 60 DEFINT A-Z:RANDOMIZE ТІМЕж,75-32768! 


| 70 DIM CHRP(2),CHRC?7,37),8(29,24) ,EC9, 1) , PCT) ,PGC23) ,EGC23) 
| 80 “---------- READ DATA --- 


| 90 PRINT:PRINT "WAIT A MOMENT.':COLOR 1 


| 100 “xxx CHR xxx 
。 110 FOR CC=9 TO 37 


| 128 FOR I-0 TO 7:РЕАО C$:C!-VAL(C'&H'«*C$) :CHRCI,CC) 9C! +65536! x(C! 532767) :NEXT I 


| 130 READ C$:NEXT CC 
| 140 'xxx PLAYER xxx 


| 150 FOR 1=9 TO 23:READ C$:C!-VALC'&H'*C$):PGCIOzC!465536! x(C! 532767?) NEXT I 


| 160 “xxx ENEMY xxx 


| 170 FOR 1=9 TO 23:READ C$:C!2VALC'&H'*C$)0 :EGCIOZC!465536!x(C! 532767) :NEXT I 
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QUAS rin gero ien LIE TEE oem metere 

WIDTH 80,25:LINE(0,0)-(79,24) , CHR ま も ( &HFE ) , 1 , BF 

CONNECT(459, 1997= (420, 189 ) - (420, 160)- (460, 140)-(500,140)-(540,160)-(540,180) 
“СО01;199),7 

PAINT(489, 179 ) , FT 

СОММЕСТ(504, 158 ) - (594,145)-(539 , 158 )-(594 , 158 ) , 3:PAINT(519 , 155) , 3,3 
CUNNECT(S94,182 )-(S39 , 182 )-(594 ,195 )-(594 ,182) ,3:PAINT(519,185) ,3,3 
CUNNECT(456 , 182 )-(456 , 195 )-(439 , 182 )-(456, 182 ) , 3:PAINT(459 , 185 ) , 3, 3 
CONNECT(456,158)-(430,158)-(456,145)-(456,158) ,3:PAINT(459 , 155 ) , 3, 3 

( ІМЕ(464,162)-(496, 178), FPSET,3,BF 

FOR Х- 461 TO 499 STEP 4: CONNÉCT(X, 181)-(Х,199),0:МЕХТ X 

FOR X-501 TO 539 STEP A:CONNECT(X,161)-(X, -X/2*449), Q:NEXT X 

FOR Ү-161 TO 179 STEP 2: CONNECT (501 , Y2)-€539,Y),91 NEXT y 

FOR Y-181 TO 199 STEP 2:СОММЕСТ(461,Ү2-(499,Ү),5:МЕХТ Y 
CONNECT(460,140)-(460,199),7: CONNECT (500, 140)-(500, 199),7 
СОММЕСТ(420,160)-(540,160),7:СОММЕСТ(420,1802-(540,180),7 
CONNECT(420,180)-(420,190)-(410,190)- (400, 16927 (400, 155)- (410,150)-(420,150) 
-(420,160), 7 
CONNECT (460, 140)-(440,140)-(440,135)-(450,130)-(510,130)-(520,135)-(520,140) 
-( 500,140), 7 
CONNECT (540, 160)- -(540, 19 )-(S559 , 1 59 )-(569 , 155 ) -(569 , 185 ) -( 559 , 199 ) -(549 , 199 ) 
-(540,180), ? 
РАІМТ(410, 170), 4,7:РАІМТ(480,135),4,7:РАІМТ(550,1702,4,7 
FOR Х-551 TO 559 STEP 4: CONNECT ОХ, X/2-124)—(X, -Х/2+464), Q:NEXT X 
FOR Ү-155 TO 185 STEP 2: CONNECT(551, アッ YO КОМЕТУ 
СОММЕСТ(410,190)-<(410,150),7: CONNECT (440, 135)- (520, 1352,7 
CONNECT (550, 150 )-(559 , 199 ) , 7 
LINE(466, 145 ) - (470, 150), PSET, 9,BF iLINE(466,199 )-(479,195) ,PSET , O0, BF 
LINE(478,145)-(482,159 ) ,PSET ,9,BF:LINE(478,199 )-(482, 195 ) , PSET , 9 , BF 
LINE(429,145)-(494,159 ) ,PSET ,9,BF :LINE(499 , 199 ) -( 494 , 195 ) , PSET , 9 。 BF 
LINE(439 ,163)-(449,165) ,PSET ,9,BF :LINE(529 , 1 63 ) -( 539 , 1 65 ) , PSET , 9 , BF 
LINE(439 ,169)-(449,171) ,PSET,9,BF :LINE(529 , 169 ) -(539 , 171 ) , PSET , 9 , BF 
LINECA30,1752-C440,177),PSET,0,BF:LINE(520,175)-(530,177) , PSET , 9 , BF 
CONNECT (140, 38 )- (180, 59 ) - (240, 89)- (240, 109)- (180, 139 ) - (140, 139 )- (80, 100) 
-(80,80)-(140,50),6 
PAINT( 160, 90),2,6 
ҒОЕ Х-141 70 179 STEP 4:СОММЕСТ(Х,1012-(Х,129),0:МЕХТ X 
FOR Х=181 TO 239 STEP 4:CONNECT(X,81)-(X, -Х/2%219), 0:МЕХТ Х 
FOR Y=81 TO 99 STEP 2:CONNECT(181,Y)-(239,Y),2: NEXT Y 
FOR Y=191 TO 129 STEP 2: CONNECT (141, (955172; ү), 2:NEXT Y 
CUNNECT(89 , 89 ) -( 249 , 89 ) , 6: CONNECT(89, 199 )-(249 , 199 ) ,6 
CONNECT (140, oM = (140, 130), 6: CONNECT (180, っ 9 )-( 189 , 130), 6 
LINE(C144, 672- (176, 78), PSET, 6,BF: LTNE(144 」 10234 (176, 113), PSET, 6 BF. 
LINEC114,82)-(136,98),PSET, 6,BF:LINE(184,82)-(206,98), PSET, 6,BF 
LINE(C144,50)-(176,53)2,PSET, 0, BF:LINE(144,127)-(176, 130), PSET, 9,BF 
LINE(89, 82j- (86, 98), PSET, 0, BF: LINE(C234, 82)- (240, 98), PSET, 0, BF 
CONNECT (280 , 929” (360, ウツ サー (390, 70)-(390,110)- (360, 125)- (280, 1252-(250,110) 
"12598,7903 (280, 22429 
CONNECT (298, 79 ) - (350, 79 )-(369 , 75 ) -( 369 , 195 )-( 359 , 1 19 ) -( 299 , 1 19 ) -(289 , 195 ) 
“çs TS i (290, 702,5 
PAINT(320, 60), ?, 2 
CONNECT (440, 55)- (520,55)-(550,70)-(550,110)- (520, 125)-(440,125)2-(410,110) 
-(410,70)-(440,552),5 
PAINT(A480, 90), 7, 5 
CONNECT ( 390 , д)- (320 , 39 )-(369 , 45 ) -( 289 , 45 ) -( 259 , 39 ) -( 259 , 9 ) , 5 
CUNNECT(369 , 9 )-(369 , 25 ) -( 359 , 39 ) -( 299 , 39 ) -( 289 , 25 ) -(289 , 9 ) , 5 
PAINT( 320, 40), 7,2 
CONNECT (270, 209)- (250,190)-(250,150)-(280,135)-(360,135)-(390,150) 
-( 329 , 1 9 ) - (370, 200), 5 
CONNECT (290 , 159 ) - (350, 150 )-(369 , 155 ) -( 369 , 185 ) -( 359 , 199 ) -( 299 , 199 )-( 289 , 185 ) 
ー-( 289 , 1 55 ) - (290, 150), 5 
PAINT( 318 , 140), Т, S 
CONNECT (570 , 0)- (570, 30)-(600,45)-(640,45),5:РАІМТ(640,0),7,5 
СОММЕСТ(0, 55)- (40, 55)- (70, 79 )- (70, 110 )- (40, 125)-(0, 125), 5 
CONNECT(0,70)-(30,70)-(40,75)-(40,105)-(30,110)-(0,110),5: РАІМТ(60,90),7,5 
FOR Т-1 TÓ 1000: NEXT X 
ВЕЕР 1:FOR Ү-127 TO 199:CONNECT(144,Y)-(176,Y),2, XOR:NEXT Y 
FOR T-1 TO 599:NEXT T:GOSUB 3450: FOR Т-1 TO 500: МЕХТ T:BEEP 0 
(.ІМЕ(144,127)-(176,199),Х0в,2,ВҒ 
(ОХ-12: LOY- 21 :PC=3 : CC= 14: 60508 1650:СС=30:6050В 1650:CC-212:GOSUB 1650 
СС=21:6050В 1650:СС-18:605УВ 1650:CC-13:60SUB 1650:CC-14:G60SUB 1650 
し し =19:G0SUB 1650:СС=23:6050В 1650 :10Х=1 0Х+1:СС=15:6050В 1650 
CC-18:60SUB 1650:CC-14:60SUB 1659:CC=21 :G0SUB 1650:СС-13:605/В 1650 
FOR Т-1 TO 4000:МЕХТ T 

sic in OC ай INFORMATION ---------- 


ss A ; Ç A ^d Mb Ez E ра À } 3 
е Ар ааа БОЕЛДУ p Аы AMNIS DENS a 


WIDTH 40,25:LINE(0,02-(639,199)5 ,PSET, 3,B 


CONNECT(1,12-(1,1982,3:CONNECT(638,12-(638,198),3 
LOX26:LOYz1:PCz-21:PR$-'4€949€9€ ':GOSUB 1680 

PC-7:PR$-'EUCLIDEAN FIELD':GOSUB 1680:PC-1:PR$-' 49999  :GOSUB 1680 
LINE(2,2)-(4,19),CHR ま (&HFE ) 515 BF 

PX=3:PY=3:GOSUB 1989:LOUX=5:LOY=3:PC=4 : PR も ="・・・・・ PLAYER" :GOSUB 1680 
РОТ@А‹ 48,40) - (63,47) ,Еб,РЅЕТ:1_0Х=5:10Ү=5:РЕ%=' · · · · · ENEMY (':GO0SUB 1680 
PC=6』PR ま = "19XSCREEN PTS.':G0SUB 1680:PC-4:PR$-')':GO0SUB 1680 
SYMBDLCAB,548),*0',2,1,6, OR 


COXE SLOV STI PRSS ' · · · · · BLOCK (MOVABLE) " :GOSUB 1680 
SYMBOL(48,725,'9 “201,6; OR 
0Х=5:10Ү=9:РВФ= " · · · · · BLOCK (IMMOVABLE)':GOSUB 1680 


LOX219:LOYz214:PR$-'8':G0SUB 1680:10Х-17:10Ү-16:РР%-"4 6":6050В 1680 


1000 LOX-219:L0Y-18:PR$-'2 R':G0SUB 1680:10Х-23:10Ү-19:РЮ%-"Е”:605УВ 1680 
1010 LOX-23:L0Y-220:PR$-'T':GOSUB 1680 


НЕЙ $YMBDLU287,1030,. 7 ュ 2/1 7: SYMBOL C287, 111), I m I 


1830. $SYMBOLC287,1192,^ と アン ,2,1, 718YMB0OLC255,1190,. ^ 7. e 2, 1,7 X 
КОКО 61MBOLCO255) 1270, 4171474243, 71$YMB0LC255,1350, イー 742,15 l 
1050 ЗҮМВО! (287,135), 7 -“”,2,1,7:5ҮМВ0І.(287,143),7 | азар oe te руна 
1060 5ҮМВ01 (287,151), POT VIZIT C1S1MB80L069351,159 0" ET 4T 
1070 SYMBOL (351, ET 3595,7 


1080 10Х-19:10Ү- 12: РС=6: Na UP ` : GOSUB 1680: (ОХ-12:10Ү-16: PR$- "LEFT':GOSUB 1680 
1090 LOX223:PR$-'RIGHT':GOSUB 1680 :1 0Х=25:1 0Ү=19;РС=5 ; РРФ= "ШАРР" :GOSUB 1680 
1100 LOX-18:L0Y-20:PC-6:PR$-' DOWN " : 60SUB 1680:L0X-26:PC-4:PR$-'(' :GOSUB 1680 
1110 РС-б:РР%-"-500 PTS.':GO0SUB 1680:PC-4:PR$-2')':GOSUB 1680:10Х-18 
1120 10Х-10:10Ү-23:РС-?:РРФ-"НІТ ANY KEY.':GOSUB 1680 

1130 A$-INKEYS$ 

1140 FOR 1=1 TO 20000:IF INKEY$-'' THEN NEXT I:GOTO 220 

1150 ---------- SLNEEN- asses ma ey масы. 

1160 CLS:6Q26Q41:EQ-CCEQ-4) MOD 62-45 

1170 LINE(9,9)-(39,24 ) ,СНРФ‹ НҒЕ ),1,ВЕ:1ІМЕ (0,0) (479,199) ,PSET, 1,B 
1180 CONNECT(1,02-(1,1992,1:CONNECT(480,02-(480,199),1 

11989 LINECAB3,00—-(639,199»5, PSET, 3,B 

1200 CONNECT(482,0)2-(482,1992,3: CONNECT(638,02-(638,199),3 

1210 SYMBOL(489 ,96) 。 ーー ,2,1,5 

1220 SYMBOL(480,104),' | е io 

1230 SYMBOL (480,112), ーー ',2,1,5 

1240 РАІМТ (630,198) ,4,3,5:РАІМТ‹ 630,198) ,0,3,5 

1250 (0Х-31:10Ү-1:РС-4:РРФ-"НІ SCORE':GOSUB 1680 

1260 LOX-231:L0Y22:PC26:PR$-RIGHT$(C' "-STR$CHS42,82:G0SUB 1680 
1270 1 0Х=34:1 ОҮ=4:РС=4:РРФ= "ЅСОРЕ " : 6050В 16890 : 6050В 1790 

1280 LOX=33:LOY=16:PC=4 : РРФ= "РІ АҮЕР" : 60508 1680 

1290 1 0Х=38:1 0Ү=17:РС=6 : РРФ=РІСНТФ(5ТРФ(РО), 1 ) :GUSUB 1680 

1300 1 0Х=34:1 0Ү=19:РС=4; РРФ= "ЕМЕМҮ " : GOSUB 1680 

1310 LOX237:L0Y220:PC26: PRSZRIGHTSCSTR$CEQ?2,22:GO0SUB 1680 

1320 LOX233:L0Y222:PC24:PR$-'SCREEN' :GOSUB 1680 

1330 LOX231:L0Y223:PCz26:PR$-RIGHTS$C"' "-*STR$CGQ),82:G0SUB 1680 
1340 IF PQ>=2 THEN PYz13:FOR PN=1 TO PQ-1:PX-240-PNX*2:GOSUB 1980:NEXT РМ 
1350 'xxx STONE xxx 

1360 FOR Y=9 TO 24:FOR X=9 TO 29:S(X。Y)=INT((RND※5-1 )/2 ) 

1370 IF S(X,Y)=1 THEN SYMBOL(Xx*16,Yx82,'0',2,1,6, , OR 

1380 IF S(X,。Y)=-1 THEN SYMBOL(X*16,Yx82,'09',2,1,6,,0R 

1390 NEXT XY 

1400 ‘ххх ENEMY xxx 

1410 FOR EN-0 TO EQ-1 

1420 X-INTC(ORND*302:Y-2INTCORNDXxX242:IF S(X。Y) く >9 THEN 1420 

1430 Е(ЕМ,0 )=Х:Е(ЕМ, 1 )=Y:GUSUB 3970 

1440 NEXT EN 

1450 'xxx PLAYER xxx 

1460 PX=INT(RNDX39 ) :PY=INT(RNDX24): IF SCPX,PYOX»0 THEN 1460 

1470 P(0)=PX:P(1)=PY:S(PX,PY)=2:GOSUB 2529:GOSUB 1980 

1480 Аз- INKE Y$ 

ОЕТ コー ニャ ーー MOVE PRAYER 一 ーー ニ ーーー ニーーー 

1500 A ま =INKEY ま 

1510 IF 4(%-"6" THEN GOSUB 2010 

1520 IF A$="4" THEN GOSUB 2120 

E1338 IF a$-'8" THEN GOSUB 2230 

| 1540 IF A$-'2' THEN GOSUB 2340 

| 1550 IF А%= CHR$C13) THEN GOSUB 2500 

11560 '---------- LASER ニーーー ニ ーー ニー ニーーー 

1570 ЕМ-ІМТ(РМОжЕО):ІҒ EN=9 AND GQ>=9 THEN GOSUB 3110:60Т0 1590 
1580 ON INT(RND※4)+1 GOSUB 2710,2810,2910,3010 

1399 mmm MOVE ENEMY ---------- 

1600 EN=INT(RNDxEQ ) :0N INT(RNDX4)+1 GOSUB 3790,3830,3870,3910 

1610 GOTO 1500 


mee: 
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4 “ Ç E м, y 4 Pag Eom м 
"f Ты ага еқ. x 4 $ 4% “ -i = 
Mehr NOSE NAP ОЛЫ DEN A Б Yi WW ї $ М эү ° 
Ж + DE 3 LU LE O 5 cem AM i NDS CES тоа" 
ды NT b Y, ЫТЫ PC DNUS ДГ RU. Ақа EN D а ШЫЛЫ) “алқ Ж іе 


LC-LEN(CPR$) :LINECLOX,LOYO-CLOX*LC-1,LOYO, 


うだ キ ーー ピー カー ce 

FOR K=9 TO ?:CHRP(KOZCHR(K,CCO:NEXT K 

PUTG(LOXx16,LOYx8)- (LOXx16+15, LOYx8* 7?) , CHRP , PSET , PC : LOX=LOX+1 : RETURN 
инен аумен PRINT eem m : 

FOR US-1 TO LC:PT$-MIDSCPR$,US, 1) 

IF PT$»-'0' AND РТ%-<"9" THEN CC-VAL(PT$)2:G0SUB 1650:GOTO 1780 

IF РТ%>= "А" AND РТ%-<"2" THEN CC-ASC(PT$)-55:G0SUB 1650:GOTO 1780 
IF PT$="/" THEN CC-36:6G0SUB 1650:60Т0 1780 

IF PT$2'?' THEN СС=37:6050В 1650:60Т0 1780 

IF PT$2' " THEN LOX=LOX+1 :GOTO 1780 

IF РТ%-"ж" THEN SYMBOL(LOX*16,LOYx8) ,'x',2,1,PC:LOX-2LOX*«1:GOTO 1780 
SYMBOL CLOXX16,LOYx8)5 ,PT$,2,1,PC:LOX-LOX^1 


NEXT US: RETURN 
---------- SCORE ---------- ЖЗ 
(0Х-31:10Ү-5:РС-?7:РРФ-РІбОНТФС" "+STR$( SC ) , 8 ) : GODSUB 1680 

IF HS#>=SC# THEN RETURN 
HS#=SC#:L0X=31:L0Y=2:PC=é:PR$=RIGHT*(' "+STR$(HS#),8):GOSUB 1680 
RETURN 

-—— DELETE ENEMY ---------- 
FOR 1=9 TO EQ-1:IF E(1,9)=EX AND E(I,1)-EY THEN E(I,0)--1:G0TO 1870 


NEXT I: STOP 
PLAY 'V12T150L3205BAGFEDC ' 
IF Iz0 THEN PR$ ま =STR ま (59XGQ ) : GOSUB 1950:SC4*-SCH4-50xGQ: GOUSUB 1790:GOTO 1900 
SCH-SCH-10xGQ: GOSUB 1790 
EDZ0:FOR І-0 TO EQ-1 :ED=ED+E( 1 ,9) :NEXT I:IF -ED< く >EQ THEN RETURN 
LOX=7 :LOY=12:PC=4: PR も = "BUNUS " :GOSUB 1680:10Х-16:РС-6 
PR ま =" 59※"+MID ま (STR ま (PQ) ,2)+"※"+MID ま (STR ま (EQ ) ,2) +" ж" +М10%(5ТРФ(009),2) 
GUSUB 1680 
SC#= 5С#+50жРОЖЕОЖС0 : СО50В 1790:FOR T=1 TO 1000: 'NEXT T:GOTO 1150 
“---------- PRINT SCORE (EN=9 ) ---------- 
LUX=EX:LOY=EY : PC=2:LC=LEN( PR まま ) 
FOR MS=2 TO LCiCC=VAL(MID ま (PR ま , US, 1 ) ) GOSUB 1650: NEXT US:RETURN 
---------- PUT PLAYER ---------- 
РИТВА(РХж16, PYx8)-(PXx16*15,PYx8*7), PG, ,PSET:RETURN 
HETE SPO aa ne MOVE PLAYER ---------- 
^xxx RIGHT xxx 
FOR  KX=P(9) TO 29 
IF S(KX。P(1))=-1 THEN RETURN 
IF SCKX,PC1200z0 THEN GOSUB 2070:RETURN 
IF S(KX。P(1 ))=-2 THEN GOSUB 2070 ; ЕХ=КХ:ЕҮ=Р(1 ) : С050В 1840 : RETURN 
NEXT KX: RETURN 
CERT 2 | 
РҮ-Р(1):ҒОР PX=KX TO P(0)+1 STEP Р(@)-КХ+1 
SCPX,PYOZS(CPX-1,PYO:GOSUB 2450 
NEXT. PX:SCPTO3, P(1 ) )= Q:LOCATE PCOD,PC12:PRINT CHR ま (&HFE ) ; :Р(0)= Р(0) +1 
RETURN 
^xxx LEFT xxx 
FOR ҚХ-Р(0) TO 9 STEP -1 
IF 5(КХ,Р(1220--1 THEN RETURN 
IF S(KX。P(1))=9 THEN GOSUB 2180:RETURN 
IF S(KX,P(1 ) )=-2 THEN GOSUB 2180:EX-2KX:EYzPC12:GOSUB 1840:RETURN 
NEXT Кх: RETURN 
Р-Я 
PY=P( 1 ) :FOR PX=KX ТО P(9)-1 STEP Р(00-КХ-1 
S(PX。PY )=S(PX+1 。PY ) : GUSUB 2450 
NEXT PXiS(P(9),P(1 ) )=9 ОСАТЕ P(9),P(1):PRINT CHR ま (&HFE ) ; : P( 9 )=P( 9 ) -1 
RETURN 
“xxx UP xxx 
FOR КҮ-Р(1) TO 9 STEP -1 
IF S(P(0),KY)=-1 THEN RETURN 
IF S(P(9),KY)=9 THEN GOSUB 2290:RETURN 
IF 5(Р(0),КҮ)--2 THEN GOSUB 2290:EX-P(0): EY- KY: GOSUB 1840: RETURN 
NEXT КҮЗ RETURN 
"E PUT ] 
РХ-Р(0):ҒОВ РҮ=КҮ TO PX(1)-1 STEP P(1 )-KY-1 
SCPX,PYOZSCPX,PY*120:GOSUB 2450 
NEXT РҮ:5(Р(0),Р(1) )=0 ;1 ОСАТЕ PCOD,PC12O:PRINT CHR ま (&HFE ) ; :PC 1 )=P( 1 )-1 
RETURN 
^xxx DOUN xxx 
FOR КҮ-Р(1) TO 24 
IF S(P(9),KY)=-1 THEN RETURN 
IF S(P(9),KY)=9 THEN GOSUB 2400:RETURN 


2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2619 
2620 
| 2630 
| 2640 
| 2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 


| 2790 


2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
.2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 


IF S(P(9),KY)=-2 THEN GOSUB 2499:EX=P( 9 ) :EY=KY:GOSUB 1840 : RETURN 
NEXT KY:RETURN 

Ë PUT J 

РХ-Р(0):ҒОР РҮ=КҮ TO P(1)+1 STEP P(1)-KY+1 
SCPX,PYOZSCPX,PY-12:GOSUB 2450 

NEXT РҮ:5(Р(0),Р(1) )=0 :1 ОСАТЕ P(9),P(1):PRINT CHR ま $(&HFE ) ; :Р(1)=Р(1 )+1 
RETURN 

^xxx PUT xxx 

LOCATE PX,PY:PRINT CHR ま (&HFE ) 

IF S(PX,PY)=1 THEN SYMBOL(PXx16,PYx8),'0',2,1,6,,0R 

IF S(PX,PY)=2 THEN GOSUB 1980 


RETURN 
“---------- UARP ---------- 
LOX233:L0Y28:PC-5:PR$-'UARP':GOSUB 1680 
5С%-5С%-500 


PLAY 'V12T?0L16N55N56N57N58N59N60N61N62N63N64N65N66N6 ?N68N69N70 " 
"V12T70L16N56N57N58N59N60N61N62N63N64N65N66N67?N68N69N70N71 ` 
"V12T70L16N57?N58N59N60N61N62N63Nó64N65N66N6 ?N68N69N7?0N?1N7?2" 

S(P(9),P( 1 ) )=9 : GUSUB 2590 

LOCATE P(9),P(1 ):PRINT CHR$C&HFE2;:GOSUB 1790 

PX=INT(RNDX39 ):PY=INT(RNDX25)』 IF S(PX,PY)<>0 THEN 2560 

P(9)=PXiP(1 )=PY: 5(РХ,РҮ)-2:6050/В 2590 :GOSUB 1980 

LINE(33, 8)-(36,8)," ':A$-INKEY$:RETURN 

lenia vob cdot LIGHT ニー ニー エネ ーー で ーー 

FOR L=9 TO 1:FOR Т-1 TO 100:МЕХТ Т 

СОММЕСТ 0,0) -(Р(0 )ө ж16+8,Р(1 )X8+4 ) , 4 , XOR 

СОММЕСТ ‹ 240,0) -(Р(0 ) ж16+8,Р(1) ж8+4) ‚4, ХОР 

СОММЕСТ (480,0) -(Р(0 )ө ж16+8,Р(1) ж8+4 ) ‚Д, XOR 

СОММЕСТ ‹480 , 100 ) -(Р(0 )ӯ ж16+8,Р(1) ж8+4) ‚Д, ХОР 

CONNECT (480,199) -(Р(0 )ө ж16+8,Р(1) 8+4) ‚4, XOR 

СОММЕСТ 240,199) -(Р(0 )ӯ ж16+8,Р(1) ж8+4) , Д, ХОР 

СОММЕСТ (0,199) -(Р(0 ) ж16+8,Р(1) ж8+4) , 4, ХОР 

СОММЕСТ (0,100 ) –(Р(0 ) ж16+8,Р(1) ж8+4 ) , Д, XOR 

МЕХТ 123 RETURN 

Pe LASER T コー マッ テー ユー トー 
“xxx RIGHT xxx 

IF E(EN,9)=-1 OR E(EN,9)=29 THEN RETURN 

BEEP1 :KY=E(EN, 1 ) :FUR KX=E(EN,9)+1 TO 29 

IF S(KX,KY)=9 THEN SYMBOL(KX*16,KYx82,'—',2,1,2 

IF ABS(S(KX,KY))=1 THEN GOSUB 3420:GOTO 2790 

IF S(KX。KY)=-2 THEN 2790 

IF S(KX,KY)=2 THEN ВЕЕР 0:GOTO 3470 

NEXT KX | 

ВЕЕР 0:IF KX>E(EN,9)+1 THEN LINE(E(EN,9)+1 。KY )-(KX-1 ,KY ) 。CHR ま ( &HFE ) 。 1 

RETURN 

^xxx LEFT xxx 

IF E(EN,9)=-1 OR E(EN,9)=9 THEN RETURN 

ВЕЕР 1:КҮ-Е(ЕМ,1):ҒОР КХ-Е(ЕМ,02-1 TO 9 STEP -1 

IF S(KX,KY)=9 THEN SYMBOL(KXx16,KYx82,'—',2,1,2 

IF ABS(SCKX, KY))=1 THEN GOSUB 3420: GOTO 2890 

IF SCOKX, KY)=-2 THEN 2890 

IF S(KX,KY)=2 THEN BEEP 0:GOTO 3470 

NEXT KX 

ВЕЕР 9:IF КХ<ЕСЕМ,02-1 THEN LINE(E(EN,0)-1,KY)-(KX+1,KY),CHP$(&HFE),1 

RETURN 

^xxx UP xxx 

IF E(EN,9)=-1 OR ECEN, 1220 THEN RETURN 

ВЕЕР. 1:KX=E(EN,9):FOR KY=E(EN, 1 )-1 TO 9 STEP -1 

IF S(KX,KY)=9 THEN SYMBOL(KXx16,KYx82,'1',2,1,2 

IF ABS(S(KX,KY))=1 THEN GOSUB 3420:60Т0 2990 

IF S(KX。KY)=-2 THEN 2990 

IF S(KX,KY)=2 THEN ВЕЕР 0:GOTO 3470 

NEXT KY 

ВЕЕР 0: IF KYXECEN, 12-1 THEN LINE(KX,ECEN, 12-12 - CKX,KY*12 , CHR ま ( &HFE ) 。 1 

RETURN 

^xxx DOUN xxx 

IF E(EN,9)=-1 OR E(EN, 1 )=24 THEN RETURN 

ВЕЕР 1:KX-E(EN,0):FOR KY=E(EN,1)+1 TO 24 

IF S(KX,KY)=9 THEN SYMBOL(KX*x16,KYx82,'1',2,1,2 

IF ABS(S(KX,KY))=1 THEN GOSUB 3420:60Т0 3090 

IF S(KX,KY )=-2 THEN 3090 

IF S(KX,KY)=2 THEN BEEP 0:GOTO 3470 

NEXT KY 

ВЕЕР @:IF KY>E(EN,1)+1 THEN LINECKX,ECEN,12*12-CKX,KY-12, CHR$C&HFE),1 

RETURN 


リス ト 続 く 


27 


28 


стола un deiner ue di LASER 2 ---------- 

IF E(9,9)=-1 OR INT(RNDx2)=9 THEN RETURN 
FOR EN=1 TO EQ-1:IF E(9,9)=E(EN,9 ) THEN RETURN 
NEXT EN 
FOR EN-1 TO EQ-1:IF E(EN,9)>9 AND Е(0, % S E(EN,1) THEN RETURN 
NEXT EN:BEEP 1 
CONNECT(O,ECO,12x8*432-(480,ECQ0,120x8*43),2 
LINECE(O,0)x16*7,0)-CE(O,0)X16*8,199) ,PSET, 2,B 
PUT@A(E(0,0)%x16,E(0,1)%x8)-(E(0,0)%16+15,E(0,1)%x8+7),EG,PSET 
FOR ОМ-1 TO 29 

^xxx RIGHT xxx 
KY=E( 9, 1 ) :KX=E(9,9)+DM: IF KX>29 THEN 3250 

IF ABS(S(KX,KY))=1 THEN S(KX,KY )=9:GOSUB 3420:60Т0 3250 
IF S(KX,KY)=2 THEN ВЕЕР 0:60Т0 3470 

^xxx LEFT xxx 
KY-zECO,120:KX-ECO,0)0-DM: IF KX«0 THEN 3290 

IF ABS(S(KX,KY))=1 THEN S(KX,KY)=9:GOUSUB 3420:GOTO 3290 
IF SC(KX,KY)=2 THEN BEEP 0:60Т0 3470 

^xxx UP xxx 
KX=E(9,9):KY=E(9,1)-DM: IF KYXO THEN 3330 

IF ABS(S(KX,KY))=1 THEN S(KX,KY220:GO0SUB 3420:GOTO 3330 
IF S(KX,KY)=2 THEN ВЕЕР 0:60Т0 3470 

^xxx DOUN xxx 
KX-ECO,00:KY-ECO,12*DM: IF KY?24 THEN 3370 

IF ABS(S(KX,KY))=1 THEN S(KX,KY )=9:GOSUB 3420:GOTO 3370 
IF S(KX,KY)=2 THEN ВЕЕР 0:60Т0 3470 
NEXT DM:BEEP 9 
LINECO,ECO,1202-C29,ECQO, 120) , CHRS$C&HFED,1 
LINE(E(9.9),9)-(E(9,9),24) ,CHR ま (&HFE ) , 1 
PUT@A(E(9,9)%16,E(9,1 )X8)-(E(9,9)※16+15。E(9, 1) *B8* 7) , EG, PSET 
RETURN 


ーーーーーー ーーーー DELETE STONE ---------- 

S(KX ,KY )=9 

LOCATE KX,KY:PRINT CHR$(&HFE);:SYMBOL(KXx16,KYx8),"x",2,1,6,,0OR 
SOUND 7,223:500М0 10,16:S0UND 6,20 


SUUND 11, 0: SOUND 12, 15: SOUND 13,9:RETURN 
Ea eunt жад зя DELETE PLAYER ---------- 
FOR PC- 1 TO 7:СО(ГОР-(РС,22:МЕХТ PC 
PLAY 'V12T55L64064GA8. R16GFEDC せ 16。 D8RAOSAGAS8.R16L32bFCDS8RA', 
"V12T55L6405AGA8.R16GFEDC$16.D8RAV1304AGA8 . RAL6LL32EFC&DOSRA " 

FOR 1=1 TO 29 

^xxx UP xxx 

IF Р(1)-1>=0 THEN LOCATE Р(0), 7,42 бла I*1:PRINT CHR ま (&HFE ) ; 
SYMBOL (PC 0)x16, (PC10-I0«85), —',2,1,5 

“xxx UP RIGHT xxx 

IF P(0)+I=<29 AND P(1)-I>=0 THEN LOCATE P(0)+I-1,P(1)-I+1: 
PRINT CHR ま も (&HFE ) ; : SYMBOL(CCPCOD*IDX16,CPC12-I0x82, "3 ,2,1,5 
^xxx RIGHT xxx 

IF Р(0)+1=<29 THEN LOCATE Р(0)+1-1,Р(1) :РРІМТ CHR ま (&HFE ) ; 
SYMBOL(CPCOO*12*16,PC12880,  1",2,1,5 

“xxx DOWN RIGHT жжж 

IF Р(0)+1=<29 AND P(1)+1=<24 THEN LOCATE P(0)+I-1,P(1)+I-1 
PRINT CHR ま $(&HFE ) ; ?SYMBOLCCPCOD*IOX16, (Р(1) +1) 8), "2" ,2,1,5 
^xxx DOUN xxx 

IF P(1)+ エ =<24 THEN LOCATE Р‹Ә), Р(1)+1- 1:PRINT CHR ま (&HFE ) 
SYMBOL (P(0)x16, (Р‹1)+1)%ж8), 一 "2, و‎ EAs 

“xxx DOWN LEFT xxx 

IF Р(0)-І>-0 AND P(1)+I=<24 THEN LOCATE P(0)-I+1,P(1)+I-1: 
PRINT CHR$C&HFE);:SYMBOL(CCPCO)-IOXx16, CPC120* 12x82, ' *,2,1,5 
^xxx LEFT xxx 

IF Р(0)-І>-0 THEN LOCATE Р(0)- I*1;PCIO: PRINT CHR$(&HFE); 
SYMBOL ( (P( 0)- 132*15,PC1)828)," 1,2, 1, e 

^xxx UP LEFT xxx 

IF Р(0)-Іо>-0 AND P(1)-I>=0 THEN LOCATE P(0)-I+1,P(1)-I+1: 
PRINT CHR$(C&HFE); :SYMBOL(CPCOD-ID*16,CPC120-I)x85),' z',2,1,5 
NEXT I:FOR Т-1 TO 1000:МЕХТ Т 
FOR PC=1 TO ?:COLORZ(PC,PCO:NEXT PC 
PQ- PQ-1:IF PQ>9 THEN 1150 

жее Ж = ыш: REPLAY ---------- 
(0Х-10:10Ү-10:РС-2:РРФ-"СбАМЕ OVER':GOSUB 1680 
(ОХ-2:10Ү-13:РС-б:РРФ-"МПІ YOU PLAY AGAIN ? (Ү/М) " : 60508 1680 
EQ-2:6Q-0:PQ-25:SCtt20 

FOR І-1 TO 1000:A$-INKEY$ 

IF АФ-"М" OR A$="n" THEN COLOR 7?:UIDTH 80,20:ЕМО 


oo“ 


3760 IF A$-'Y' OR A$-'y' THEN 860 

3770 NEXT I:GOTO 220 

3780 “---------- MOVE ENEMY ---------- 

3790 'xxx RIGHT xxx 

3800 IF E(EN,9)=-1 OR E(EN,9)=29 THEN RETURN 

3810 IF S(E(EN,9)+1 。E(EN,1))=9 THEN GOSUB 3950:Е(СЕМ,д0020-Е(ЕМ,0241:6050УВ 3970 
3820 RETURN 

3830 'xxx LEFT xxx 

3840 IF E(EN,9)=-1 OR E(EN,9)=9 THEN RETURN 

3850 IF S(E(EN,9)-1 。E(EN,1 ) )=9 THEN GOSUB 3950:ECEN,0D-ECEN,02-1:GOSUB 3970 
3860 RETURN 

3870 'xxx UP xxx 
. 3880 IF E(EN,9)=-1 OR ECEN, 12-0 THEN RETURN 

3890 IF S(OECEN,0D,ECEN, 12-12-20 THEN GOSUB 3950:E(EN,12-ECEN,12-1:GOSUB 3970 
3900 RETURN š 

3910 xxx DOWN xxx 

3920 IF E(EN,9)=-1 OR ECEN, 12-24 THEN RETURN 

3930 IF SX(ECEN,0D,ECEN, 1) +1) =0 THEN GOSUB 3950 :Е(ЕМ, 1) =Е(ЕМ, 1) +1 :6050В 3970 
3940 RETURN 

3950 'xxx DELETE xxx 

3960 5(Е(ЕМ,0),Е(ЕМ, 1) ) =0 :1 ОСАТЕ ECEN,0D,ECEN, 12: PRINT CHR$X&HFE) ; : RETURN 
3970 “---------- PUT ENEMY ニー ニー ューーー ニ ーーー 

3980 PUTGACECEN,02X16,ECEN,12X82-CECEN,0)0X*X16*15,ECEN, 1 )X8+7 ) ,EG, PSET 

3990 SCECEN,0)D ,ECEN, 12) 2-2: RETURN 


4000 “---------------------------------------- 
4010 ” ПАТА 

4020 “---------------------------------------- 
4030 “---------- CHR ---------- 


4040 DATA 1FEC,7838,F0CC,F30C,FCOC,7818,DFE0,0000, 
4050 DATA 03C0,07C0,0FCO,03C0,03C0,03C0,03C0,0000, 
4060 DATA FFE9,99F8,997C,91F8,1FE9, 7Е00 ,FFFC,9999 , 
4070 DATA FFE9,9918,93E9, /C78,003C,0078,FFE0,0000, 
4080 DATA 00F0,07F0,18F0,30F0,60F0,FFFC,00F0,0000, 
4090 DATA 3FFC,6000,FFE0,0078,003C,0078,FFE0,0000, 
4100 DATA 1FFC,7800,FFE0,F018,F00C,7818,1FE0,0000, 
4110 DATA FFFC,007C,00F8,01F0,03E0,07C0,0F80,0000, 
4120 DATA 3FF9,F89C,FFB9,7FF8,37FC,C97C,3FF9 ,9999 , 
. 4130 DATA 1FE0,607C,C03C,603C, 1FFC,00F8,00F8,0000, 
4140 DATA 0780,0FC0, 1BE0, 31F0, 60F8,FFFC,C03C,0000, 
4150 DATA FFF9,F99C,F99C,FFF9,F99C,F99C,FFF9,9999 , 
4160 DATA 1FFC,7800,F000,F000,F000,7800,1FFC,0000, 
4170 DATA FFEO,F018,F00C,FOOC,FOOC,F018,FFE0,0000, 
4180 DATA 1FFC,7800,F000,FFF8,F000,7800,1FFC,0000, 
4190 DATA 1FFC,7800,F000,FFF8,F000,F000,F000,0000, 
4200 DATA 1FFC,7800,F000,FQ?C,FO03C, 783C , 1FFC,0000, 
4210 DATA F00C,F00C,F00C,FFFC,F00C,F00C,F00C,0000, 
4220 DATA 0780,0780,0780,0780,0780,0780,0780,0000, 
4230 DATA 003C,003C,003C,9003C,C03C,6078,1FE0,0000, 
4240 DATA F99C,F9F9,FF99,F3C9,F9F9,F978,F97C,9999 , 
4250 DATA F000,F000,F000,F000,F000,F000,3FFC,0000, 
4260 DATA 3CF0,CF3C,CF3C,CF3C,CF3C,CF3C,CF3C,0000, 
4270 DATA 3COC,FFOC,DFCC,C?TFC,C1FC,C07C,C018,0000, 
4280 DATA 1ҒЕй,7818,Ғ00С,Ғ00С,Ғ00С,7818,1ҒЕ0,0000, 
4290 DATA 1FE0,7818,F00C,F018,FFE0,F000,F000,0000, 
4300 DATA 1FE9,7818,F99C,F99C,F7CC 7838, 1FEC , 0000, 
4310 DATA 1FE0,7818,F00C,F018,FFE0,F1F0,F07C,0000, 
4320 DATA 3FFC,F800,FF80,FF8,07FC,007C,FFF0,0000, 
4330 DATA FFFC,0780,0780,0780,0780,0780,0780,0000, 
4340 DATA F00C,F00C,F00C,F00C,F00C,7818,1FE0,0000, 
4350 DATA F00C,F80C,7C18,3bE30,1F60,0FC0,0780,0000, 
4360 DATA F3CC,F3CC,F3CC,F3CC,F3CC,F3CC,3CF0,0000, 
4370 DATA F81C,1E60,0FCO, 0FCO,O0FCO,19E0,E07C,0000, 
| 4380 DATA F0OOC,F00C,F00C,7C18,1FE0,0780,0780,0000, 
4390 DATA FFF8,00FC,03F0,0FCO,3F00,FCO0, "7FFC,0000, 
4400 DATA 000C,0030,00C0,0300,0C00,3000,C000,0000, 
4410 DATA 3FF0,C03C,C03C,03F0,0780,0000,0780,0000, 
BEEN ИЄ نا ا ا‎ ende PUNTEN uem enm 
4430 DATA 3003,CFCC,C3C0 , 3FFC, 3FFC,03CC, 33F 3, COOC 
4440 DATA 0000,0000,0C30,03C0,03C0,0C30,0000,0000 
4450 DATA OFF0,03CO,CFF3,FC3F,FCS3F,CFF3,03C0, OFFO 
AO i-e ENEMY rem rrt 
4470 DATA 3033,C00C,0003,0000,0000,C000,3003,CCOC 
4480 DATA 93C9,9FF9,3FFC,FFFF ,FFFF ,3FFC,9gFF9,93Cg 
4490 DATA 0000,0000,03C0,0C30,0C30,03C0,0000,0000 


Joc. —< x £«CC-AO0O7O]OUOZX'l7zAXcCu-OIrgoTmooozguo-coUmPÉGohtNeo 


〇 
〇 
〇 
〇 
〇 
〇 
O 
O 


3 は 、 特命 を お び た 特殊 コマ ンド 。 


敵国 ! - 侵 入 し 、 нди 
点 で ある 司令 令 部 を 破壊 し な く て は い (【 

E. 252-727. кона ва 
ば いい と いう わけ じゃ ない 。 凶悪 な ラ 


шет. 


イオ ン 、 へ ビ も 倒さ な くっ ちゃ いけ な ぶ 
い 。 民 間 人 に 変装 し だ 敵 の スパ イ も い 
る し 、 そ れ に 、 呪 術 師 と いう あや し げ 
な 人 物 も 登場 する 。 A 

キミ は 、 あ ら ゆ る 困難 を 見 服 し て 任 
務 を 遂行 する こと が で きる だ ろう か 。 


ウォ ー ゲ ー ム ・ シ ミュ レー ショ ン の 
一 種 で す 。 


RUN す る t. 画面 左 の メイ ン 画 面 に 、 


自分 の いる エリ ア を 中 心 と と し た 9 の エ 
り ア が 表示 きれ ます 。 プ レイ ヤー - 
の エリ ア に 何 か 存 在 す れ ば 、 建 物 や 敵 
兵 は も ちろ ん 、 木 や 湖 な どの 地形 も 3 
28-27; 


9 210052 7 RF Q 
Qo FH) UR FOI OF Ski 
...% ға? ПРУ 


ム ① 手 りゅう 弾 で や っ つけ ろ | 


30 


ハプニング も いっ ぱい 。 
コミ カル ・ タ ッ チ な ウォ ー ゲ ー ム 。 


また 、 呪 術 師 や ライ オン な ど が プレ 

ー に 近づい て きだ と き に は 、 メ イ 
ン 画 面 い っ ぱい に グラ フィ ッ ク 表 示 る 
れ ま す 。 

画面 右 は 、 全 体 の マッ プ で す 。 建物 
と 湖 、 木 の シン ボル マー ク が 表示 きれ 
ます 。 し か し 、 らち ら に は ダレ イマ ヤー 
の 位置 は 表示 る され ませ ん の で 、 メ イン 
画面 の 地形 を 参考 に し な が ら 自 分 の 位 
中 を 推理 し て くだ さい 。 
画面 中 央 に は 、 持 ち 物 や 生命 
プレ イヤ ー の 状態 が 表示 され ま す 。 生 
命 カ が 0 に な る と 、 ゲ ー ム オー バー で 
すし 、 武 器 が な く な れ ば 戦え ませ ん 。 
常に 自分 の 状態 に 気 を 配り な が ら 行動 
する 必要 が あり ます 。 


涼やか に 、 敵 の 3 つの 司令 部 を 破壊 


し て 、 マ ッ プ の 上 端 か ら 敵 地 を 脱出 し 
て くだ さい 。 


司令 部 … 英 の 戦略 ポイ ント で す 。 39 
司令 部 を 破壊 し た 後 、 英 地 


人 ム ② 英 司令 部 を 発見 。 


『 力 な ど 、 


i2 ы. 
命 力 が 十 3 と な り 、 クス リ 
Ye 


BIS 


)… 分 隊 の 存在 を 確認 する フラ グ 
)… 分 隊 の 座標 
)… 病 院 表示 用 

) … 司 令 部 表示 用 
J" ЕЖЕЛДЕН 

)… 人 間 表 示 用 
)… マ ッ プ 色づけ 用 
)… マ ッ プ 表示 用 
) 

) 

) 


"АСЫ OM ン の 弾 数 
携帯 し て いる 弾 そ う 数 
… 携 帯 し て いる る 手 りゅう 弾 数 
携帯 し て いる クス リ 数 
……… 指 令 部 の 残り 
「…… 条 し た 民間 人 の 数 
…" 末 し た 敵 兵 の 数 
… ツ 司令 部 の 全 減 の 確認 用 フラ グ 
en BAM X 座標 
……… 自 分 の Y 座標 


A③ わ ぁ ー、 呪 術 師 だ 。 


ほ Un? 


ЖЖ. э. FD ww 5 Ыл: 携帯 し て いる 弾 そう が ひと 


れ ま す 。 000 i. 
M 2D d ai ` 2 
コマ ンド の 説明 | 4. 手 当て … 生 ЕИ СЕТ 
ます 。 こ の コマ ンド を 実行 
1 . 移 動 ……・ テ ン キ ー を 使っ て 移動 し ま する と 、 携 帯 し て いる クス 
Т.М; меж)? リ が ひと つ 減 り ま す 。 
ア に は 進め ませ ん 。 5. 待 機 …… 何 も し ませ ん 。 
(移動 方 向 ) 分 類 シミ ュ レ ーション ゲー ム _ 100 7 
2 9 言語 BASIC A ы; 
UE o, | イー は Ф207. 
(49) 6) | Maine 
RE Ш (2j Z ۵0 y جره‎ 
. 攻 撃 ……… 攻 撃 す る 方 向 は 、 移 動 と 同 き で 9。 
じょう に テン キー で 指示 し 
iT. ®-т /NZ F-00038 
(武器 ) 
@ マ シン ガン A r4 
je コマ ンド の 入力 
敵 兵 の み を 殺す こと が で 
きま す 。 


Г 
йолу C. Hep 
` 本 を 破壊 する こと が で き 
fH 


3. 弾 ご め … マ シン ガン に 弾 を こめ ます 。 指令 部 の 処理 


この コマ ンド を 実行 す る と 、 


ドン キー コマ ンド プロ グラ ムリ スト 


р. шк Sen лр ай и у 

ғы 

20 МІрТН80,25:С01.087,0:С0М501Е22,3,0,0:ПЕҒІМТА-2:РАМПОМІ?ЕТІМЕ/4 

30 ОІМ TT(29 ) , TX( 29 ) , TY(29 ) ,M(39 , 15) ,T(39,15) ,N(39 ,15),61(161) ,62(161),63(161),6 
4(17?) 

40 LOCATE30,8:PRINT'2A"52 1922" サイ 。 。。 。。。 

SQ CONNECT( 134 。191 )-(145,99 )-(155,99 )-(166,192)-(134,192),6:LINE(149,193)-(169, 1 
15) ,PSET, 7, BF :PAINT( 149,93) ,6,6,7:LINE(148,194 )-(152,113) ,PSET, 2, BF:LINE(C142,10? 
)-(158,109),Р5ЕТ,2,ВҒ 

60 СОММЕСТ(204,1022-(215,90)-(225,90)-(236,102)-(204,102),5:11МЕ(204,103)-(236,1 
15),PSET, 7,BF :PAINT(219,93),5, 7? :FORA-208T0228STEP10 :L INECA, 1045 -CA*5,106) , PSET,O 
,BF:NEXT:LINEC215,110)-(225,115) ,PSET,0,BF 

70 CONNECT(279,100)-(295,90)-(311,100)-(311,1152-(279,1152- (279,100) , 3:PAINT(C289 
,95 ) , 3:FORA=286T0391STEP5:LINE(A,199 )-(A+3,192) , PSET, 0, BF: NEXT:LINE(290,1092)-(30 
0,115)2,PSET,4,BF 

80 SYMBOL(340,885,'4',4,4,4 

90 LOCATE16,15:PRINT " ヒ " ョ ウイン" :1 ОСАТЕ25,15:РВІМТ "ミレ イフ " ' :_ОСАТЕЗ5, , 15:PRINT "タダ " ン ヤ クコ 「 : 
LOCATE44,15:PRINT +" 

100 LOCATE59 , 19 :PRINT "ミス "イロ 7" ヌ リ ツ フ "サレ ル タ NIDA ミス "9 ミ " LOCATE50,13:PRINT "アカ 7" ヌ リ リフ 
“ サル タ кл УК 

110 GETGA(134,90)-(166,1152,61,G:GET8A(204,90)-(236,1152,63,6:GET0A(272,90)-C311 
ЧЫ к ДЄ ДӨН E 

120 LOCATE65,20:PRINT'By カト 9 915“ " 

130 FORA=9TO06 :READA ま (A) ,C(A) : МЕХТ :FORA=9T017:READG4(A) :NEXT:PUTG(80,100)-(95,115 
),G4,PSET, 6:LOCATE8 , 15:PRINT'7 4^4" 

140: DATA: ,7,%,4,Н,2,Н;2,”,7,Н,2,8,5 

150 МЕ-11:П-5:01-5:5І-3:С-5:К-3:І-0:ТЕсд:іН-0 

160 ----- ショ キイ チ ---- 

170 FOURA=1T0159:M(RND( 1 ) ж29+1 ,。RND( 1 )%14+1)=1:NEXT 

180 FORA=1T02:M(RND( 1 )ө ж29+1 。RND( 1 )x14+1 )=2:M(RND( 1 )*X29+1 ,。RND( 1 )%※14+1 )=3: NEXT 

190 M(RND( 1 )x18+19。RND( 1 )x3+19 )=5:M(RND( 1 )ө ж25+3 ,РМО(1) ж3+10 )=5:MCRND( 1 )*25+3 , КМО 
(1) ж10+3)=5 

200 FORA=1TO6:R=RND( 1 )x24+3:R1=RND( 1 )X9+3: IF M(R,R1 ) く >5 AND M(R+1,R1)<>5 AND МАК 
,Р1+1)<>5 AND MC(R+1 ,R1+1 ) く >5 THEN M(R,R1)=6:M(R+1,R1)=6é:M(R,R1+1)=6:M(R+1,R1+1)= 


6 
210 NEXT 


リス ト 続 く 


31 


220 FORA-1TO20:TT(A)-0 

230 TXCAOZRND(C12x29*1: TYCAD) ZRNDC12x14*41 

240 IF MTX(A),TY(A)) く >9 OR(TX(A)=X_ ANDTY(A)=Y) THEN239 
250 T(TX(A),TY(A) )=RND( 1 )%19+5:M(TX(A),TY(A))=4:NEXT 


260 X=RND( 1 )x29+1 :Y=RND(1)%14+1:TF M(X,Y) ТНЕМ260 


И 7-4 DAMEN. ---- 

280 CLS:60SUB1590 

290 LOCATE5,24:PRINT' チ ス "サク セイ $2390....." 

300 FORA- 17030: FORB-1T015:COLOR СМА, В) ) 1 ОСАТЕА+49 ,В+4 : РРІМТАФ(МСА, В) ) : МЕХТВ,А 
: COLOR? 

310 COLORA:LOCATE39,5:PRINT'4h"9 *239':LOCATE40 , 6:PRINT'7 8 9" :1 ОСАТЕДӨ, 7: PRINT" 
4 + 6':LOCATEA0,8:PRINT'1 2 3':COLOR? 

320 LOCATE40,2:PRINT'B... ヒ " ョ ウイ ン OR タ “ ン ヤク 2 クコ OR 5/47” :1 ОСАТЕ40,З:РБІМТ"Ф... +" 
330 LOCATE5,9:PRINT " コロ ミタ テキ / 5A2"';TE:LOCATE30,0:PRINT'2n»2 ミン カン シラ" ン ノ 22791 

340 LOCATES3,3:PRINT'7£tA ?:':LOCATE39,13:PRINT "セイ メイ リョ ク ” ; ME 

350 LOCATE39 , 15:РРІМТ " タ " ン ヤク "5D1 LOCATE39 , 17:PRINT "テリ ュ 9 タ ドン "ST iLOCATE39 , 19 : PRINT" 
2 メリ "CxLOCATE39 , 11 :РВІМТ "507° 3K 


360 /---- MEIN ---- 
370 ' 
380 /---- $"7"» ---- 


390 IF М‹Х,Ү)=2 THENLOCATE5,24:PRINT'323A 9"»t23 9" 9"vt 2 t"77" ホキ ュ ウ AWy"-':D-5: 
D125:S123:F0RA-1T013000 :NEXT 

400 IF MX。Y)=3 ТНЕМ_ОСАТЕ5, 24 : PR INT "ココ A К“ ョ ウイ ンタ " テ " キ ル 90 УЛ” 9 ナオ シテ クス リ ヲ ホキ ュ ウ 
スル ゾ "ー" :С=5: МЕ=МЕ+3: ЕОРА=17013000 : МЕХТ : IFME>19 THENME=1 1 

410 ОМ RND( 1 )x?7+1 GOSUB1760,1910,2140,2310,2500:'* イベ ドッ ント 

420 LOCATEA4,15:PRINT;D1:LOCATEA6,17:PRINT;SI:LOCATEA2,19:PRINT;C:LOCATEA6, 13:PR 
INT;ME 

430 LOCATES,24:PRINT'1 (М? 2 1994 3 971Х 4 テア テ 5 タイ ま " 

440 A=VAL( INPUT$ も ( 1 ) ) : IFA=5 THEN489 

450 IFA>9 AND А<5 THENONA GOSUB 640,780,1140,1190:GO TO 480 

460 GO TO 440 

470 /---- テキ АХ ---- 

480 R3-20:FORQ-1T020 

490 IF TT(Q) THENNEXTQ:GO TO 560 

500 LOCATE5,24:PRINT "テキ 2"4'5;Q;'7"224 コウ ト " ウ $19" 

510 A=INT(SQR((X-TX(Q) )^2+(Y-TY(Q) )^2) ) 

520 LOCATE63,3:PRINT'7£4A ト オ イ ナー ....':IF А<4 ORR3-1 THENLOCATE63,3:PRINT'7* カ " チ カイ 
РОР ARES | 

530 IF A-1 THENGOSUB1360:NEXTQ:GO TO 560 

540 GOSUB1260:NEXTQ 

550 '---- »p47" ---- 

S60 IF X+1>39 OR Y+1>15 OR Ү-1<1 OR Х-1<1 THEN390 

570 FORR--1T01:FORR1-2-1T01:1F M(X+R,Y+R1 ) く >5 THENNEXTR1,R:GO TO 390 

580 LOCATE5, 24:PRINT "ミレ イフ " 29 コウ りか" キ シテ キタ '!!':BEEP:FORA-1T02000:NEXT | 
590 LOCATE5,24:PRINT" ト ドゥ Ко Мо ..... ;: РОРВ=1Т7010:ҒОРР2=17030 : МЕХТР2:ҒОРА=1Т 
010 :ВЕЕР1 ; ВЕЕРӨ : МЕХТА, В 

600 ME=ME-RND( 1 ж2:1Е МЕ<1 THEN2869 

610 NEXTR1,R:GO TO 390 н 

620 /---- SUB ---- 

630 “ーーーー イト "の ---- 

640 LOCATE5,24:PRINT "イト "9 .... E ヤメ ルト キハ 5 キー 3 オス 1' 

650 ХХ=Х:ҮҮ=Ү : 605081100 

660 МХХ, ҮҮ) =А:Х=Х+Р:Ү=Ү+Р1 

670 IF Y<1 ANDH=1 THEN LOCATE5 , 24:РРІМТ " タ " ゅ ラリー セイ コウ 59V“ LF" ニカ イキ ュ ウ トク シン サラ ニ トク 
^" ツ ホ "ー ナ ス EFM V" ヤリ ター |! 9$$$9"':FORA-1T01000:BEEP1:BEEPO : NEXT: CONSOLE0 , 25: SYMBO 
L(19,19) 。" オ メ テ " ト 9 *',10,20,2:END 

680 IF X>39 ORX<1 ORY>15 ORY<1 THENR=6 : А%= " ソレ イシ" ョ ウー イサ ルリ ワケ 7491 !'':GOSUB760:GO T 
0 640 | 

690 IF MX,Y)=1 THENR-4:4$2'9J) ラド ャ アル マイ シ t = /^"VLA95 T49"0 !!':60SUB760:GO TO 640 
700 IF М(Х,Ү)-6 ТНЕМР=5:АФ= "7, A オヨ ケ " ナ イン 9"V" !!':GOSUB7?760:GO TO 640 

710 IF M(X,Y)=5 THENR=2 :A ま = "オマ エ オレ 2 111%) !!":60508760:60 TO 640 

720 GOSUB1599 

730 IF M(X,Y)=4 THENGOSUB1450 

740 RETURN 

750 '---- イト "9 の SUB ---- 

760 COLORR:LOCATE5,24:PRINTA$:COLOR7: 'FORA- 170800 : BEEP1 : BEEP9 : NEXT : XXX: Y2YY:RETU 


2770 /---- 197% ーーーー 


780 (0САТЕ5,24:РБІМТ"К19 99" C イト "9 $932 J ト オナ シ " キー C ヤメ 上ル トキ 5 キー ラオス 1" 
790 GOSUB1 100 

800 IF X+R>39 ORY+R1>15 ORX+R く 1 ORY+R1<1 THEN LOCATE5,24:PRINT "ソン ナ ト コ FMD !!!':Е 
ORA-1TO1000:NEXT:GO TO 780 

810 LOCATE5。24 :PR INT "トト" レニ スル C12 マシ ンカ " ン [2] テリ ュ ウ タ " ン 上 ヤメ ル М A 5 キー 2 オス ]':A=VAL 
(INPUT$ ま (1 ) ) 

829 IFA=5 THEN439 

830 ON А GO TO 859,969 : "マシ ンカ " ン , テリ ュ ウ 9 ウタ" ン 

840 “x マシ ンカ " ン f 


850 


IF MCOX*R,Y*R120€54 THEN LOCATE5 ,24:PRINT "ナニ ウツ YEY 55» !!"':BEEP:FORA-1TO2000:N 


ЕХТ:60 TO 430 


860 
870 
880 
890 


900 


910 
920 
930 
940 
950 
960 


IF 0<1 THEN LOCATE5,24:PRINT "タマ £t"L7"23 !!':FORA-1T02000:NEXT:GO TO 430 
LOCATES,24:PRINT'2" 3" 9" 3"....':FORA-1TO8:BEEP1:BEEPO :FOURB=1T039 :NEXTB , A 
R2-RND(C1)xME:R3-TCX*R, Y+R1 ) : TCX*R, Y*R1)2ZTCX*R, Y*R1)-R2 

IF T(X+R,Y+R1 ) く 1 THEN TE=TE+R3:T(X+R 。Y+R1 )=9 :M(X+R 。Y+R1 ) =0 :R2=9 
TEZTE*R2:FORA-1TO20:IF T(TX(A) 。TY(A) ) く 1 THEN TT(A)=1 

NEXTA 

LOCATE18,0:PRINT;TE | 

D-D-1:1FD«1 THEN LOCATES,24:PRINT'437/7" タマキ" レル レタ" !!" ; ВЕЕР :ҒОРА=1702000 : NEXT 
005081590 : RETURN 

“ж テリ ュ ウ タ " ン 

IF MC(X+R,Y+R1 )=9 OR M(X+R,。Y+R1 )=6 THEN LOCATE5,24:PRINT'7- 392 ツリ モリタ" !!":BEE 


Р:ҒОЕА-1702500:МЕХТ:60 T0430 


9/0 IF SI く <1 THEN LOCATE5,24 :PRINT "テリ ュ ウ タン Л モウ アリ マセ ン !!':FORA-1TO3000:NEXT:GO TO 
430 
980 LOCATES,24:COLOR2:PRINT' h"J2-2....  :COLOR?:FORA-1T08:BEEP1:BEEPO :CIRCLE( 159+R 


ж100,78%К1ж50),Аж5,2:МЕХТА:ҒОКА-1701000:МЕХТА 


990 


IF INT(RND(1)%x10)=1 THEN_R2=T(X+R, Y+R1 ) iT(X+R 。Y+R1 )=T(X+R 。Y+R1 )-RND( 1 )xR2: TE 


-TE*CR2-TCOX*R,Y*R120):SI-SI-1:IF T(X+R,Y+R1 ) く 1THENT(X+R , Y+R1 ) =0 :GOSUB1599 :GO TO 1 


070 


ELSE 605081590 :60 TO 1070 


1000 IF M(X*R,Y*R120-5 THEN LOCATE5, 24 :PRINT " ヤ ゅ ター テキ / シレ イフ " Э M99)" V!':FORA-1 
70800 : BEEP1 :ВЕЕРӨ : NEXT : К=К-1 :1 ОСАТЕДД, 11:РРІМТ;К:ІЕ K<1 THEN LOCATE5,24:PRINT "ツキ 
"9 9"939 3" コリ キョ ウ メサ "シテ コッ キョ ウ 9 Л $2" J イチ ハ " ン 91 9" !!":BEEP:FORA-1TO6000 : NEXT :Н=1 
1010 TE=TE+T(X+R 。Y+R1 ) :M(X+R , Y+R1 )=9 

1020 SI-SI-1:LOCATE18,0:PRINT; TE:LOCATE46,17:PRINT;SI 

1030 IF T(X*R,Y*R1) THEN T(X*R,Y*R12-0:60SUB1590:GO TO 1050 

1040 GO TO 1080 

1050 FORA-1TO20:IF T(TX(A),TY(A) )<1 THENTT(A )=1 

1969 NEXTA | 

1070 LOCATE18,0:PRINT;TE:LOCATEA46,17:PRINT;SI:RETURN 

1080 LOCATEX*R*49,Y*R1*4:PRINT'- ' :GOSUB1590 : RETURN 

1090 “---- KEY IN SUB ---- 

1100 A=VAL(INPUT ま (1 ) ): IF А=5 THEN439 

1110 R=(A=4 ORA=7 ORA=1 )-(A=6 ORA-9 ORA=3 ) : R1=(A=8 ORA=7 ORA=9 )-(A=1 ORA=2 ORA-3 


) 


1129 RETURN 


1130 “---- タマ コ " メ ---- 
1140 IFD1<1 THENLOCATES,24:PRINT'3E"/ 232" アリ マセ ン !!':FORA-1T03500:NEXT:RETURN 
1150 IF D THEN LOCATE5,24:PRINT "ノコ リノ 23';D;' A9 p" モウ タイ ナイ ナ ..... トト "9 シヨ 9 С ヤメ ルト キハ 


5 キー 2 オス 1':IF INPUT ま (1)="5" THEN4389 
1160 D1=D1-1:D=5:LOCATE44,15:PRINT;D1 


1170 LOCATE5 ,24:PRINT "タマ コ " メ カン リョ ウ !!":FORA-1TO2500:NEXT:RETURN 

1180 '---- テア テ ---- 

1190 IFC く 1 THENLOCATE5,24 :PRINT "クス リカ " アリ マセ ン !!':FORA-1T03500:NEXT:GO TO 430 

1200 IF ME>19 THEN LOCATES,24:PRINT'777 スル КУЗ? Л アリ マセ ン !'":FORA-1TO05000:NEXT:GO 
TO 430 


1210 C-C-1:ME-ME-*3:LOCATE42,19:PRINT;C 
1220 IF ME>19 ТНЕММЕ=11 :1 ОСАТЕД6, 13:РРІМТ; МЕ :1 ОСАТЕ5, 24: РРІМТ "267° カン へ ? キ - 7499 


wm 


! 1" *FORAZ-1T02500 : NEXT 


1230 LOCATE46,13:PRINT ; МЕ 

1240 LOCATES,24:PRINT'777 カン リョ 9 !'"':FORA-1T02500:NEXT:RETURN 

1250 = テキ イト " ウ ニーーー | 

1260 XX=TX(Q)IYY=TY(Q)iB=N(TX(Q) ,TY(Q) ): IF INT(RND( 1 )*19 )=3 THENRETURN 

1270 TX(Q)=TX(Q)-(B=6 ORB=9 ORB=3)+(B=4 ORB=7 ORB=1 ) :TY(Q)=TY(Q)-(B=2 ORB=1 ORB= 
32%(В-8 ORB=7 ОРВ-9) 

1280 IF XX=TX(Q) AND YY-TY(Q) THENB=RND( 1 )*9+1 :G0 TO 1270 

1290 IF TX(Q)>39 ORTX(Q0«1 ORTY(Q)>15 ORTY(Q) く 1 THENTX(Q)=XX:TY(Q)=YY:GO TO 1260 
1300 IF M(TX(Q),TY(Q)) THENTX(Q)=XX:TY(Q)=YY:GO TO 1260 

1310 M(OXX,YYOZO:MCTXCQO , TYCQOOZA: TCTXCQO , TYCQOOSTCXX, YY ) : TCXX, YY )=9 

1320 R=ABS(X-TX(Q) ):R1=ABS(Y-TY(Q) ) 

1330 IF R=1 AND R1=1 OR R+R1=1 THENGOSUB1599 

1340 RETURN 

1350 '---- テキ 199% ---- | 

1360 LOCATES,24:PRINT'7* カラ ノ 399"t* !!':FORB-1T02000:NEXT 

1370 FORB-1TOTCTXCQO , TYCQO)O :RZRND(C12xX1:ME-ME-R 

1380 IF INT(RND(C12x2) THEN LOCATES,24:PRINT'A"- キュ ン ....' :FORR-1TO60:BEEP1:BEEPO 
:NEXTR:GO TO 1400 


R 


1390 LOCATES5,24:PRINT'2" 9" 9" 9*....':FORR-1TOB8:BEEP1:BEEPO :FORR1=1T039 : NEXTR1 , 


1400 LOCATEA4A6,13:PRINT;ME 

1410 IF ME く <1 THEN 2860 

1420 NEXTB 

1430 RETURN 

1448. NINA E> ニニ ーー 

1450 R-TOX,YO:LOCATES,24:PRINT'AZ^4 セン 9"— !!":FORA-1TO800:BEEP1:BEEPO : NEXT 

1460 GOSUB1590:LOCATE46,13:PRINT;ME:LOCATES,24:PRINT'747 [1 ] 257 Г21":А%-ІМР0ОТ% 


(1) 


: A-VAL (АФ) 


ЈА К< 


93 


- 
amem 


1470 ON А 60 701520 

1480 LOCATE5, 24:РРІМТ " ア チ ョ ---':FORA-1T0800:BEEP1 : BEEPO : NEXT 

1490 ME-ME-RND(1)XxT(OX,YO:IF МЕ<1 THEN 2860 

1500 T(X,Y)=T(X,Y)-RND( 1 )%ME:TF Т(Х,Ү2<1 THEN 1560 

1510 GO TO 1460 

1520 LOCATE5, 24 :PRINT "ホレ ナイ フ 9"V"... 5%---- !':BEEP:FORA-1T02500:NEXT 

1530 ME=ME-RND(1 )%X1:IF ME く <1 THEN 2860 

1540 Т(Х,Ү)-Т(Х,Ү)- "ІР T(X,Y) く 1 THEN 1560 

1550 60 TO 1460 

1560 TE-TE*R:LOCATE18,0:PRINT;TE:LOCATEA46,13:PRINT;ME:FORA-1TO20:IF TX(A)=X AND 
TY(A)=Y THENTT(A)=1:T(X,Y)=0:M(X, Y) 20: GOSUB1590 : RETURN 

1570 NEXT 

1580 '---- 1 GAMEN ---- 

1590 LINE(9,8)-(399,158) , PRESET, , BF 

1600 LINE(9,8)-(399, 158) , PSET, 4,B:CONNECT(100,8)-(100,1582,4: CONNECT(200,8)- (200 
,198),41 CONNECT C8, 58)- -(300, 58), 4: СОММЕСТ(0,108)-(300, 108), 4 

1610 PUTGC140,75)-(155,90), G4, PSET, 4 

1620 FORA=-1T01 :FORB=-1T01 : IFX+A>39 ORX+A<1 ORY+B>15 ORY+B く 1 THEN1739 

1630 ON M(X*A,Y*B)*1 GO TO 1640,1650,1660, 1670, 1680,1710,1720 

1640 МЕХТВ,А: RETURN 

1650 SYMBOL (1204x100, 65*Bx50) , ' *',4,4,0:NEXTB, A: RETURN 

1660 PUTGAC104-Ax100,60*Bx50)-(136*Ax100,85*Bx50),G2,PSET:NEXTB, A: RETURN 

1670 PUTGAC104*-Ax100,60*4Bx50)-(136*A4x100,85*B*X50),61, PSET: NEXTB, A: RETURN 

1680 R1-0:R2-0:FORR-ZOTOT(X*A,Y*B)-1:PUTG(115*Ax100* (R-R2)x16,60*BX50*R1x16)-(130 
*AX100*CR-R2)*16,75*BX50*R1x162,64,PSET, 6 

1690 IF R=4 ORR=9 THENRi1-R1-*1:R2-R2*5 

1700 NEXTR,B,A:RETURN 

1710 PUTGAC134-4x100,70*Bx50)-(166*-Ax100,95*BX50),63,PSET:NEXTB, A: RETURN 

1720 PAINT(101-Ax100,59*Bx50) ,5, 4 1iNEXTB, A: RETURN 

1730 PAINT(101*A4*x100,59*B*50),2,4 :NEXTB, A: RETURN 


1740 “---- イベ "ント ーーーー 

1750 '---- ミン カン را"‎ ーーーー 

1760 LOCATE5, 24 :PRINT "ミン カン ラミ" ンカ "チカ ス " イ テグ クルツ". は BEEP:LINE( 1 ,9)-(299, 157 ) , PRE 
SET, , BF 


1770 CONNECT( 239 , 79 )-( 229 , 93 ) -( 189 , 138 ) -( 199 , 138 )-(89 , 198) ,7:CONNECT( 150 ,28 )-(49 
,98)-(106,622,7: CONNECT (80 , 63)-(80,75),7: СОММЕСТ(170, 90 に (170, 78 )-( 299 , 78 )-(219, 
83)-(190,108)-(170,103),7 

1780 СОММЕСТ(180,83)-(200,83)-(180,98)-(180,88)-(190,88),7:СОММЕСТ(220,93)-(210, 
732-(200,782-(178,672,7:СОММЕСТ(70,98)-(60,118)-(80,108)-(100,118)-(120,108)-(14 
0,118)- (130, 982,7 

1790 СОММЕСТ( 160, 18)-(260,58)-(240,73)-(200,58)-(160,73)-(100,58)-(60,68)-(40,58 


)-(160,18),7: PAINT(159 , 48),6,7: РАІМТ(150, 78), 2,7: CONNECT ( 160 , 18)- (100,58) ,0: CONN 


ECT(169, 18 )- ( 299,58 ) , 9 


1899 CONNECT( 119, 138 ) - (119,143),7:CONNECT(219,191 )-(219,143),7:CIRCLE( 150, 157) ,1 


50,7,.1,.5,,F: PAINT(C150, 140),2, 7: FOURR=9T03999:NEXT 

1819 LOCATE5, 24 :PRINT "トト" ウス ル [1 ハナ シカ ケル 2 102 З カク レル ]" :A$- INPUT$(C1) 

1820 R=RND( 1 ) 2+1: 1РАФ= "1" THEN ON R GOTO1859 , 1889 , 1829 

1830 IFA$-2'2' THEN LOCATE5, 24 :PRINT " キ " ャ ー 795 Л ナニ モ シテ イナ イ 995А ぬ ラ "ツタ"ー":FORA=1T 
0900 : BEEP1 :BEEP9 : NEXT : GOSUB1590: I2 I*1:LOCATEA47,0 : PRINT; I: RETURN 

1840 IFA$-'3' THEN1890 


21850 LOCATE5 ,24 :PRINT "コイツ テキ A イタ “ーー !!':FORA-1T0800:BEEP1:BEEPO : NEXT: IF INTCRND(C1) 


34 


ж1)+1 AND МЕ<5 THEN2869 

1860 ME=ME-RND( 1 )%X3: IFME く 1 THEN2869 

1870 LOCATE5, 24 :PRINT "ナン トカ 9129.....' : 605081590 :FORA=1T03999:NEXT:RETURN 

1880 IFC<5 THENLOCATE5 , 24 : PR INT " クス リラ ワケ テク レ マ セン カ ":FORA=1TO5999:NEXTiLOCATES,24 5 PR 
INT'447"23' :FORA-1T02500:NEXT:C-2C*1 

1890 GOSUB1590:LOCATE5,24:PRINT'497 2499....' *FORA-1TOS000 : NEXT : RETURN 

1888 ee サイ オツ エー ヤー 

1910 LOCATE5, 24 :PRINT ' 54729" – " sBEEP:LINE(C1,92-(299,157 ) ,PRESET 。 , BF 

1920 CONNECT(216,29 )-(239 , 25 ) - (246, 232-270, 29)- (300,45)- (284, 522)-(C300,59)-(282, 
68)-(288,73)-(280,75)- -(286, 86)-(268,86)-(282,96)- (272, 193)-(254 ,191 )- (259 , 107?)-( 
226,102)-(220, 107)- (299 , 199 )-(188,198)-(189, 102)- (160,103) 

1930 CONNECT (160, 1932 -(172, 90)-(152,80)- (164, 75)-(144,66)2-(160,592-(148,54)- (C156 
,50)-(138,45)- (164, 35)-(160,3420-(188,28)-(200,27)- (216, 20) 

1940 СОММЕСТ(148,48)-(80,43)-(48,70)-(58,98)- -(48, 120)-(60,140)-(78,140)-(78,138) 
-( 64,130 )-(88,98)-(88, 80), 7: CIRCLE(189 , 55),110, 7,22%, Adi РАІМТ(120,70),2,7 

1950 СОММЕСТ(114,95)-(100,118)-(110,140)- - (430, 140)- (130,136)2-(124, 134)- (116, led 
-(140,100),7: PAINT(120, 110), 2,7 

1960 CONNECT (168, LOSI -(168, 110)- (174,140)-(160,145)-(162,150)-(190,150)-(194,148 
)-(190,140)-(190,108),7: PAINT(180, 110),2,7 

1970 CONNECT (204, 102)-(210,140)- (206, 143)- (214,150)-(234,150)-(236,148)-(224,140 
)-(222,131)-(234,104), 7: PAINT (220, 120),2,7 

1980 CONNECT (210, 385^ (240, 292- (262, 44)- “89. 74)-(242,90)-(204,90)-(184,80)-(184, 
50)-(210,38),7: PAINT (220, 30», 6,7 

1990 CONNECT ( 200 , 229470216, 55)- (216,602-(200,55),7:СОММЕСТ(242,53)-(258,53)-<242, 
602-(242,53) 


>. У ЛЬ Аел. УМ АЫ ES LUV 
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и oy УА СОЧИ 1 
ws қа à 
E d ў 
` n 


2000 CONNECT(222 , 69 )-( 236 , 69 ) -( 249 , 79 )-( 234 , 72) -(222, 72) -( 216, 70) -( 222,60) , 7 :CON 
NECT(204,72)2-(204,7?7)- (252, LUCAS еу Pp p PY 4 CONNECT(228, の る よう を イス の TS РАІМТ(210, = 
0),2,7 

2010 СОММЕСТ (54,85) -( 39 , 195 ) -(29 , 197 )-(19,193)-(19,95)-(14,92 )-(29,99 )-(22,93)-( 
18, 199 )-(29 , 192)- (28, 19 ) - (50, 76), 7:РАІМТ(20,105), 2, г, 

2020 FORA- 0TO260STEP20: CONNECT (@+A, 158)- (4@+А, 120)- (30%А,158),4:РАІМТ(20%А,148), 
4:NEXTiFORA=9T03599 : NEXT | 

2030 ON RND(12x2*1 GO TO2050,2090 

2040 GO TO 2120 

2050 LOCATE5, 24 :PRTNT "ライ オン p" 1/97 キタ ! | " sFORA-1T0800 : BEEP1 : BEEP9 : NEXT 

2060 IF INT(RND(1 )*4 )= 1 AND ME<S THEN2869 

2070 ME-ME-RND(1)2x2:1F МЕ<1 THEN2869 

2080 G0SUB1599:LOCATE5 , 24 :PRINT "ナン トカ タオ シタ ....':FORA-1TO4000 : NEXT : RETURN 

2090 FORQ-1TO20:IFTT(Q) THEN 2110 

2100 IF INT(SQR((X-TX(Q))“2+(Y-TY(Q) )^2) )=1 THENLOCATE5 , 24 : PR INT "ライ オン A 7+9 YF 
イル 399" '1BEEP:FORB- 1T05500 : NEXT: TCTXCQO, TYCQOOZTCTXCQD, TY(Q) )- -RND(C1)x4:GOSUB2280 
:60 TO 2120 

2110 NEXT 

2120 6050В1590:1 ОСАТЕ2,24:РБІМТ"ЖУ 499 399"':FORA-1T030900: NEXT : RETURN 

2130 ーー ター ^E" ---- 

2140 LOCATES,24:PRINT' ^E" 93" トト ВЕЕР 

2150 LINE(1,9»0-(299,157),PRESET, , BF 

2160 CONNECT (49, 48)-(60, 38)- (100,38)-(140,58)-(140,128)-Х(160,138)-(220,138)-Х(240 
,128)-(240,118)2-(250, 108)- (260, 118)- (260, 138)- (230,157)-(140,157)-(100,138)-(100 
,67)-(90, 58)- (60,68)-(80,48)-(40,48;),2 

2170 CIRCLE(90, 43), 8,2: PAINT(120, 80),2:СОММЕСТ(45,49)-(55,59)-(53,49),7:РАІМТ(49 
,49),7,2 

2180 FORA-68TO123STEP15:CIRCLE(130,42,6,6,.9,, ,F:NEXT 

2190 FOURA=9T0259STEP49 : СОММЕСТ (@+А, 158)- (50+А,118)-(40+А, 158), 4:РАІМТ(5+А, 157), 4 
: NEXT: FORA-1T02500 : NEXT 

2200 ON KRND( 1 )%X2+1 GO TO 22290,2230 

2210 IF INT(RND(12x2)-71 THENLOCATE5, 24 : PRINT" ^E" p" カミ ツイ タ ---!!"ВЕЕР:ҒОРА-17050 
00:NEXT:ME-ME-1:IF МЕ<1 THEN2869 

2220 GO TO 2260 

2230 FORQ-1TO20:IFTT(Q) THEN 2250 

2240 IF INTCSQR(CCX- -TX(Q) )“2+(Y-TY(Q) ) ^2) )=1THENLOCATE5 , 24 : PR INT "AL" A 7£2 オ ソ ゾウ テイ ル 
329“ " : ВЕЕР :ҒОВА=1705500 :NEXT:T(TX(Q) ,TY(Q) )=T(TX(Q), TY(Q) )- 1 : GUSUB2289:60 TO 22 


2259 NEXT 

2260 605081590 :1 ОСАТЕ5, 24:РВІМТ "К" YD イリ チャ 9 ター .... 1FORA-1TO4000 : NEXT : RETURN 

2270 '---- ^t" OR ライ オン D“ 7+9 4/99 ショ リ SUB ---- 

2280 IFT(TX(Q),TY(Q)) く <1 THENM(TX(Q) ,TY(Q) )=9 : TCTXCQO , TYCQ)O Z0: TTCQO 71 

2290 RETURN 

2300 “---- JA? ---- 

2310 IF X+1>39 OR Ү%1215 OR Х-1<1 OR Ү-1<1 THENRETURN ; 
2320 IF М(Х+1,Ү)<>6 AND M(X+1,Y+1)<>é AND M(X+1 ,Y-1 ) く >6 AND M(X-1 。Y) く >6 AND M(X- 
1,Y+1)<>6 AND М(Х-1,Ү-12<>6 AND М(Х,Ү-12<>6 AND MC(X,Y+1 )<>6 THENRETURN 

2330 LOCATES,24:PRINT'7. 5A? 2" !!'iBEEP 

2340 11М№Е(1,9)-( 299,157) PRESET, BF :PAINT(2,89 ) ,5, 4 

2350 СІКСІЕ(150,148),50,7,.2:СІКСІЕ(150,148),100,7,.2,.44,.06:СІБСІЕ(150,148),15 
0,7,.2,.45,.05 

2360 LINEC110,119)-(190,148D, PSET, 4, BF:CIRCLE(150,1482,40,4,.2, ,,F 

2370 CONNECT ( 240 , 53)-(240, 83)- (150, 148)- (60,83)- (60, 53), ?:CONNECT(222,96)2-(150,1 
28)-(80,96),7 

2380 CONNECT (100, 33)-(150,28)-(200,33)-(230,33)-(240,43)-(280,58)-(200,48)-(150, 
58)-(100,48)-(20,58)-(60, 43)- (70, 33)- (100, 33), 0: PAINT(158, 38),4,7: PAINT( 150, 98), 
4,7 

2390 CUNNECT(199 ,33 ) -( 299 , 33 ) -( 249 , 43 )-(299, 48 )-( 199, 48 )-( 69,43)-(199,33) , ア :PAIN 
7(150,38),1,7 

2400 СОММЕСТ(130,58)-(140,68)-(120,88)-(80,78)-(80,58)-(90,53)-(140,682-(100,68) 
-(80,58)-(140,68),7:СОММЕСТ(170,58)-(160,68)-(180,88)-(220,78)-(220,58)-(210,53) 
-(160,68)-(200,68)-(220,58)-(160,682,7 

2410 РАІМТ(100,63),7:РА1МТ(200,63),7:СІРСІЕС(108,662,6,0,,,,Ғ:СІРСІЕС(192,66),6,0, 
,ЭЭҒ:РАІМТ(100, 108), 6,7: CONNECT(120, 100)-(140,110),7:СОММЕСТ(180,1002-(160,110), 
riFORA=9T02599 : NEXT 

2420 IF INT(RND(1)%3)<>1 THEN2450 | 

2430 LOCATE1,24:PRINT'29A^*: I^^^.... オレ FM-8 モ ゥ トル V" オマ エ N FM 1-9?"- 999 IF SIK 
づ THENLOCATE59 , 23:PRINT "カラ テリ ュ ウ タン 1" ヤル ケン f---':FORA-1T012000:NEXT:SIZSI-*1:GOSU 
B1590:RETURN 

2440 FORA-1TOS8000:NEXT:GOSUB1590 : RETURN 

2450 LOCATE1,24:PRINT'29A?: I^^^.... オレ PC-8891 モッ トル У" オマ I A. FM i-9" タダ "カラ 303 
チャ ル サ リン fT---':FORA-1T014000:NEXT 

2460 IF INT(RND( 1 )%4 ) =1 AND ME<5 THEN2869 

2470 ME=ME-RND( 1 )X2:IF МЕ<1 THEN2869 

2480 50SUB1520 : LOCATE1 , 24 iPRINT "フー 7174 747 9%99.. ナン トカ 99М93% 2 93 299... 9 
7299." FORA=1T016999 NEXT: RETURN 


リス ト 続 く 
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2500 LOCATES,24:PRINT'7"*£z ナヤ ツ カ " (ЖУУ... アレ ルカ "ユウ メイ ナ ノロ イシ " ュ ツ ウシ カ ....' BEEP 

X918 LINECI,9)5- (299, 157) ,PRESET, ,BF:CIRCLE(300,82,50,6,,.25, . 5,F: CIRCLE(150, ӨЗ), 
100,7 

2520. CONNECT(56,68)-(70,78)-(80,732-(90,83)-(100,78)-(110,832-(120, 78)- (130,83)- 
(140,78)-(170,885-(200, 78)- (210,83)- (220, 79)- (230, 93)- (244, 68), 7: CONNECT (58 , 88)- 
(40,93)-(65, 107), 2: СОММЕСТ(250, 88)-(260, 93)- C233, 197), 2 

2530 CONNECT( 199 ,198)-(199,115)-(119, 115)- (110, 108)- (150, 1132-(190,108)-(200,113 
)-(200,118)-(150,123)-(100,118)-(100,113)-(110,108),7: PAINTC150, 114), 7 

2540 CONNECT (90, 85)- (100,83)-<130, 98)- (100,98)-(80, 88)- (130,98),7: CONNECT(210, 85 
)-(200,832-(170,98)-(200,98)-(220,88)-(170,98), 7: LINE(89 , 88 )- (140, 103),Х0Е,5, BF: 
LINEC160,88)- -(220, 103), ХОВ, 5,ВЕ 

2550 РАІМТ‹ 150,108) ,6, 2 5,2: СІРСІЕ( 104, 95),5,0, , ,,F:CIRCLE(196,95),5,0, , , ,F:CONN 
ЕСТ(55,88)-(80,93), 0: CONNECT(140, 98)-<160, 98), O: CONNECT(220,93)- (245, 882,0 :CONNE 
CT(76,53)-( 222,53) , i CONNECT(58,68)-( 242,68) ,7 

2560 PAINT(159,58 ) ,7:FORA=9T089STEP89 : CIRCLEC110*A,20),10,2,1, , ,F:CIRCLE(C110*A,2 
5),5,1,1,,,F:LINEC100*4,28)-(120*4,53) , PSET , 6, BF:NEXT:CIRCLE(C150,1502,200,2,.1,. 
6,.883: РАІМТ(150,148),2,4 

2570 CONNECT(1900,122)- (100, 138 )-( 159 , 143 ) -(299 , 138 )-(299,122),2:PAINT(159 ,128 ) ,2 
,7:РАІМТ(50,95),2,7:РАІМТ(250,95),2, 7: FOURA=9T02599:NEXT 

2589 ON RND( 1 ) 2+1 GO TO 2730 , 2840 

2590 LOCATE5, 24 :PR INT " ノロ イシ" ュ リ シ : ソコ ノ ヤ ツ カオ P" キタ ナイ カラ ノロイ コロ シテ ヤル !''"':FORA-1TO1500:BE 
ЕР1 : ВЕЕРӨ : NEXT 

2600 МЕ-МЕ-ЕМО(12ж2:ІҒ МЕ<1 THEN2860 


2610 LOCATES,24:PRINT'V5 A 475 !! 5Ж----!! 2*9 ....  3FORA-1TO900 :ВЕЕР1 : BEEP9 : NE 
XT 

2620 IF INT(RND( 1 )x2)=1 THENLOCATES,24:PRINT'7ü42"aiV5: ウキ" ャ ーー !! A"2X.... FORA 
-1T010000:NEXT : GOSUB1590 : RETURN 

2630 LOCATE5,24 :PRINT "ノロ イシ" i9»: 9%»-- h> チビ "ザー キオ AN タウ ラッ NE も クリー バス タツ 15 


72,РКЕ5ЕТ,,ВҒ 

2640 СОММЕСТ(63,65)-(105,73)-(233,68)-(265,80)-(291,123)-(285,123)-(265,113)-<25 
5,852-(255,125)2-(263, 136)- (255, 153)- (245,157)-(229, 157)- (229, 155)- (245,149)-(245 
,138)-(217,116)-(207,95),7 

2650 CONNECT(211,103)- (96, 1132-(96,133)-(85,157)-(57,157)-(57,155)-(75,150)-<%5, 
1283-(17,889)-C17,790, ёз CONNECT(195, 104)- (195, 120)-(215,1352-С227,1422-(2095,1502- 
(197, 150 )- (199 493)" (215, 1532-(235,1422-(235,1290, 7 

2660 CONNECT(45,1082-(45,131)2-(35, 147)- (19, 159 ) - (19, 153)-(45,4153)-(65。131 )-(65。1 
222,7:СОММЕСТ(7,242-(7, 42)- (5,482-(5,58)5- (11, сизе (11, 74)-(19,80)-(41,800-(71,58) 
(71, 38)-(65,23)-<45, 38 ) - (31, 38 ) - (21,28)-(7, 24), Y 

2670 СОММЕСТ(57, 54)-(45, 54)-(43, 262 (43, 60)-(32,712-(22,712)-(22,54)-(13,532,7:С0 
ММЕСТ(46,73)-(39,77)- (33; 77Э9-СІҢТТ2-І1.5,732 ,01 CONNECT(26, 719" (26; 772,0: CONNECT( 
33,69)-(26,672-0(23,69)0, 7: 

2680 CONNECT(47?,73)- (39, 772-(21,77)-(16,73),7:СОММЕСТ(67,46)-(61,30)-(55,35),7:С 
ОММЕСТ(23,362-(19,312-(7,242,7: PAINT( 150, 88), 2,7:РАІМТ (45,48), 2, 7:РАІМТ(55, 128), 
2,7:РАІМТ(205,118),2,7 

2690 FORA- 9T0269STEP29 : CONNECT(A, 158) -(40+А, 128 )-(39+A, 158 ) ,4:PAINT(29+A,148) ,4: 
NEXT : FORR=0T03000 : NEXT 

2700 LOCATE5,24:PRINT "ワン !! 72 !! 9y" :ҒОРА=170800 :BEEP1 :BEEP9 : NEXT: GOSUB1590 
2710 ME-ME-RND(C1)*1:IFMEX1THEN2860 ( 

2720 LOCATE5,24:PRINT "トト "9 カ {YF マイ v2"9"9 ...' :FORA-1TO6000 : NEXT : RETURN 

2730 LOCATE2,24:PRINT'7042"iUV2: ソコ ノ ヤ イツ ta9 A オレ A +y" D" 4429" オマ エ ノ ЈУ": Э 2717 
ТАУ” :BEEP:FORA-1T018000 : NEXT 

2740 LOCATE2,24:PRINT'7*9 7% / フフ "ンタ イ 7 セ “ ン イン コロ シテ クレ !'":FORA-1TO6000:NEXT 


2750 LOCATE5, 24 : PRINT "ノロ イシ " ュ ツ シラ: イク ラナ ン テ " モ ソレ N AVI"... tft"4 1 ファン タイ 97.... FOR 
A=1T018999:NEXT 

2760 LOCATE9 , 24 :PRINT "1-29 Qy" 2" 97 IJA“ |! セツ メイ A コノ 7h..... :FORA=1T020500:N 
EXT 


2770 LOCATE9 , 24 PRINT "ヒト 5537 トキ Л 292" 2 409 アト A299" 49"4/ キー Э オス コト : ヤメ ルト キ Л A 
55071  *- 3 2 カイ JA 

2780 A$-INPUT$(2):A-VALCA$):IF A=9 THENGOSUB1590 : RETURN 

2790 IF А<1 OR A>29 ТНЕМ2780 

2800 IF TT(A) THENLOCATES5,24:PRINT'V/7* 294 N モウ “YAY 29... :FORA-1T03000:NEXT:6 

0 TO 2760 

2810 LOCATES,24:PRINT'7"9 2"4'5;A5'7" 594 7 97А" 1FORB-1TO8000 : NEXT 

2820 IF INT(RNDC12x2)5-71 ТНЕМІ.ОСАТЕ5, 24:РРІМТ" /045* 1У5: AX» SINADI: e e :FORA-1TO 


8000 :NEXT:LOCATES5,24:PRINT" Jh----11' tFÜRA- 1T02000 : NEXT: 605081590: RE TURN 

2830 TT(A)=1:T(TX(A),TY(A) )=9:M(TX(A) , TYCAD)) =0 :LOCATES, 24: PRINT" 7042" 175: К" ウタ 
ADU у 979297. NV Ы MAMADA e oea" :F ORA= 17015000: NEXT : GOSUB1590 : RETURN 

2840 LOCATE5, 24 :PRINT "オイ コラ  /ü42"i9$ ... イ ウ チマ イ ヤカン J ....' 1FORA-1T012000 : NEXT: 
605081590 : RETURN 

2850: ニー ュー GAME. OVER. ニ ェ テー 

2860 LOCATE5,24 :PRINT "ヤラ レタ ー - - - ?!4$ ... 内 "タン 1!  3FORA-1T080 : BEEP1:FORB-1TOS0 


:NEXT:BEEPO : NEXTA:FORAzZ1T0O10: LINE(9, 9 )-(649,299 ) , XOR, RNDC12x6*1,BF : NEXT : CONSOLEO 
,25: SYMBOL( 19 ,19 ) , " サ " ン ネン 7"2549',7,20,1:END 

2870 /---- テキ tv? DATA ---- 

2880 DATA 3968,3968,4088,3968,8064,16321,-1,-232,32752,8064,8160,14448 

2890 DATA 28728,28728,-8136,-1986,0,0 


気 を つけ て 。 
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わざ わき さき 地 球 ま で 花 を 採集 に きた EE. 
дех Аа RAYT УЖЕ, 上 の ね 
花 集め の ジャ マ し に きた 。 
花 を 取っ た 後 は 、 落 と し 穴 に な っ て 
し まう し 、 エ イル リアン は ジャ マ す る し 、 
KIED ERCE ROZ, 


RUN す る と 、3 本 の 花 と エ イリ アン 
が 現れ ます 。 エ イリ アン に つか ま ら な 
いよ うに 花 を 摘ん で くだ さい 。 

花 を 摘む と 、 そ こ は 落 と し 穴 に な り 、 
EK は ワー プ し ます 。 同 時 に 花 の 数 も 
増え を ます か ら 、 ど ん どん 花 を 摘み まし 
よう 4 

憎い エイ リア ン は 、 う まく 落と し 穴 
に 読 いこ ん で 、 や っ つけ ます 。 も ちろ 


$6 9 «€ * $ 2.0 Ғе ИК $9. 4 € 9 


4① 花 を 摘む と 落と し 穴 が 増え る 。 


E.T が お 花 を 摘み に や っ て きた 。 
落と し 穴 に 落ち な いよ うに 


ん 、E.T 自 身 も 落と し 穴 に 落ち る と 死 
ん で し まい ます か ら 注 意 し て くだ きい 。 
花 を 20 本 摘む と ボー ナス が も 62. 
新しい 面 が 始ま り ま す 。 


E.T は テン キー の [2I4I6]8j を 使っ て 
動か し て くだ さい 。 
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人 ム ② や っ た ! 


の 行 を 改造 し て くだ きい 。 

230 Р-РЕЕК (&HFDO01) 
240 IF P=&H38 AND … 
P—&H32 AND … 
P—&H34 AND … 
270 IF P—&H36 AND … 
分 類 アク ショ ン ゲ ー ム 
BASIC 


=== 
сана 


作者 の プロ フィ ー ル 


UORRO 4 t 11EOD S FII F 
M-7 を 購入 し まし だ た 。 

バリ コン が 大 好き で 、1 日 3 時 間 ま バ 
ンコ ン の に 計 つ て いま す 。 この アー ム 
は 、 自 分 こと し て は 、 も う ひ と つ だ こと 思 つ 
て いま す 。 

©, ү ласа 

eN ЗЕЕ), YO \ 
ます 。 


ボー ナス 得点 だ 。 


3/ 


ム ③ あ っ 、 エイ リア ン が 迫っ て きた 。 
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44 Copyright (С) 1984 
ا‎ by.TATEISHI. 

d ks ATE TRO BREL RDM CMT, ОРНЫГ АА" ыы ات‎ 
x Р е A ON VA T" 439439 024. 94 

i 80 DIM ACISI 8509253 ;,CXC291,06C38, 22) 

| 90 FOR І-0 TO 24:READ AXCIO:NEXT 


FOR 1=9 TO 24:READ BX(CIO:NEXT 
FOR 1=9 TO 24:READ С%(1):МЕХТ 
FOR 1=1 TO 30:FOR Ј=1 TO 25:6(I,J2-0:NEXT:NEXT 
WIDTH80,25:COLOR1,0:CLS:GOSUB700' DEMO 
WIDTHAQ ,25:COLOR?,0:CLS 

RANDOMIZE TIME/2 

SCz0:Rz0:SB-0 

SYMBOL( 33*16, 20*8), BY. TATEISHI ,1,1,7 
GOSUB389 : GOSUBA450 

IF PO=1 THEN РО=0 : РЕТОРМ 

Е-0 

Х=1:Ү=3:РХ=28:РҮ=20:2=3:В0=50 

60508600 

N-5 

K$-INKEY$ 

IF КФ-"8" AND Y>3 THEN LOCATEX, Y:PRINT" 


"$1YzY-1:60SUB608 
IF K$2'2' AND Y<23THEN LOCATEX,Y:PRINT' ‘$: 


zY4*1:60SUB600 
X-1:60SUB600 , 


IF K$2'4' AND X^1 THEN LOCATEX, Y:PRINT - 
-Х%1:06051/8600 


IF К%-"6" AND Х<29ТНЕМ LOCATEX,Y:PRINT' 
IF М<-0 THEN 1070 
IF G(X,Y)=1 THEN 5С-5С%10:К-К%1:2-2-1:ВЕЕРІ:ҒОК I-1 TO 50 : NEXT : BEEP9 : GOSUB46 


Y 
Y 
X 
X 


0:GOSUBA10:GC(X,Y223:1F G(X,Y)=3 THEN COLOR10:LOCATEX, Y t PRINT'O' ; :COLOR?,0:X7 INT( 
РМ0ж27)%2:Ү-ІМТ(РМОж17)%3:ҒОР 11-1 TO 19:GOSUB699 : NEXT 


300 
ET 

310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
405 
410 
420 
430 
440 
450 
460 
470 
480 
490 


IF INTC(RNDxZ)-1 THEN 60508620 ELSE PUTGA(RX*16,RYXx8) -CRXX16*15, RYX8* 7) ,UX,PS 


IF G(RX,RY)=3 THEN GOSUB1160 

IF G(RX,RY)=1 THEN G(RX,RY)=0 

IF R=>29 THEN SB=SB+399 :С050В 480 

IF 7-<0 THEN 7-3 

IF G(X,Y)=3 OR X=RX AND Y=RY THEN 60508675 

IF BOD>=399 THEN BO-50 

GOTO230 

LINE(9,2 )-(39 , 25 ) ,CHR$(2545,3,B 

FOR F=9 TO 39:PUT@A(FX16,1%X8)-(FX16+15,1X8+7) ,A%,PSETINEXT 
LINE(31x*16,2x8)-(39x16,25x8),PSET, ?,B 

CB=9:FOR C=7 TO 2 STEP-1:CB-CB*1:S9YMBOL(500*CB, 30-CB) , "E. T. ,4,6,C:NEXT 
FOR S21 TO З 

Q-INTCRNDxX27)2*2:U- INTCRNDX*182 *3:6(Q,U)071 
BEEP1:PUTGACQx16,Ux8)-(Qx16*15,Ux8* 7) , AX, PSET: BEEPO : NEXT 

RETURN 

SYMBOL(33x16,10x8),'SCORE',1,1,3:1PUT8A(33x16,15x8) -( 33*16*15, 15X8* 7) , B& , XOR 
COLOR?7:LOCATE33,12:PRINT SC:LOCATES35,15:PRINT N:RETURN 

^ BONUS 

WIDTH80 , 25: COLOR?7,0:CLS 

COLORA:LOCATE19,5:PRINT" 


200 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
(RXx 
630 
640 


7008, 


650 


0184, 


660 
—1. 
670 
675 
680 


LOCATE10,6:PRINT'EM ип В | | 
LOCATE10,7?7:PRINT'ENENEEN БЕ ипи 
LOCATE10,8:PRINT' EN mm mm 
LOCATE10,9:PRINT'ENENEEEN "WP Ы 
SYMBOL (320, 40),STR$CSB),3,6,7: SC SC* SB 
М5%-" v8t20018o6efgo7cdo6go7cAo6go?c2r4cdecde4o6bo7d4c2r' 
Uó$-'u5t20014o4go5cecgfa2c2o4b4b8bo5c ' 
FOR І-0 TO 1:PLAY U5$,Uó6$:NEXT 
FOR І-1 TO 30:FOR J=1 TO 25:G(I,J220:NEXT:NEXT 
WIDTHAQ , 25 :6050В8160:Х=1:Ү=3:РХ=28:РҮ=20:7=3:В0=50 : GOSUBA10 : 60508150 : RETURN 
PUTGACXx16,Yx8)-CXx16*15, Yx8*7) ,BX,PSET 
BEEP1:BEEPO0 : RETURN 
LOCATERX,RY:PRINT' ';:RX-sRX«*SGN(OX-RXO X1:RYzRY-*SGNCY-RYOX1:PUTGACRX*16,RYX8)- 
16*15,RYx8*7),CX,PSET: RETURN 
^ DATA 
DATA0,0,0,0,0,0,0,0,1920,4032,4032,1920,0,0,0,0,0,768,768,16392,25368,13104, 
4032,0 
DATA1984,9544,10184,8456,16376,2016,3120,-2017,0,640,0,0,0,0,0,0,1984,9544,1 
8456,16376,2016,3120,-2017,0 
ПОАТА1984,0,896,-1,-28703,-28703,-32767,0,8176,8176,896,0,0,0,0,0,1088,0,896, 


-28703,-16391,-20455,12312,0 


LOCATERX,RY:PRINT' * ; :РХ= ІМТСРМ№Ож27 ) +2: РҮ= INTCRNDx17)*3:GO0SUB620 : RETURN 
FOR 1=1 TO 30:BEEP1:FOR 11=1 ТО 20:BEEP1:BEEPO : МЕХТ ; ВЕЕР : NEXT 
SOUND6 , 5: SOUND? , 247 : SOUNDS , 16: SOUND11 , 0: SOUND12, 20: 50UND13,0 :N=N-1:6(X,Y¥)=0 


:60SUB460 : LOCATEX, Y:PRINT' ';:X-2INTCRNDX27)*2: Y INTCRNDx17) +3: GOSUB600 : RETURN 


690 
700 
710 
220 
730 
740 
(50 
(609 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
EXT: 
1150 
1160 
RINT 
1170 


$ ( BO 


DEMO 

PRINT TABC3); 
PRINT TAB(3): 
PRINT TAB(C3); 


: RS KO 
PRINT TAB(3);" 


PRINT TAB(3); 
PRINT TAB(C3); 
PRINT TAB(C3); Bases 
PRINT TAB(3); Кы Бус (SC TEY 


COLOR? 
ERUNT ТАЙСӘТ Л К ЛУ Л Л ТТТ" орук (0919837777000 
PRINT TAB(3);' ——— р“ ЛУ“ ヘン Е ) 
PRINT TAB(3);" 

PRINT TAB(3);" 

PRINT TAB(3);" 

PRINT TAB(3);" 

PRINT TAB(C3);" 

PRINT TAB(C3);" 2 


в wie. £09 9.49 9-86-60 * 9 5.9 | テキ 


PRINT TAB( 3); 
PRINT TAB(3); 
PRINT TAB(3); 
PRINT TAB(3); 
PRINT TAB(3); 
PRINT TAB(3); 
PRINT TAB(3); сата аты БҰРСА КҮТ by.TATEISHI. 
PUTGACSX16,13x82-(5x16*15,13x8* 7), BX,PSET 
РОТА (5ж16,16ж8 ) – (5ж16+15,16%ж8+7),Сх,РЅЕТ 
PUTGAC9*16,19x8)-C5x16*15, 19x8*7) , AX,PSET 
COLOR10: LOCATE10,22:PRINT'6' :COLOR? 
М1%- *s9m6999t24918o6g- gggo う っ g-gggo4g-goggo6r8gggg4e4ge4gaeee4dc4" 
2=" Foire ipu Tar or;gaboSerBererBerSerGerBerB. 
W3$-'d-4o5g4oó6d-o5ag4o6d-4ddd2"' 
W4$-'o5a*tr8a*r8a*tr8a*r8br8"' 
PLAY U1$,U2$:PLAY U3$,UA4$ 
FOR Т-1 TO 3000:МЕХТ 
COLOR2:LOCATE60,23:PRINT'HIT ECRETURNJ KEY !" 
H ま =INPUT ま ( 1 ) : IF H$«»5CHR$(13) THEN 1050 ELSE RETURN 
GAME OVRE 
( ІМЕ(0,0)-(40,25),СНР%(254),4,ВҒ 
IF SE>HSC THEN HSCsSC 
PLAY'v12t1800618co5bagui1006co5bagoó6u8c2" 
SYMBOL(9,39), "САМЕ OVRE',8,8,0 
SYMBOL(59 , 100), "HI-SCORE "%5ТР%(Н5С),2,3,7 
SYMBOL (50,130), SCORE *STR$CSC),2,3,7 
SYMBOL(100,160),'HIT ERETURNJ KEY r" 1 ,1,7 
H$- TNPUT$(1 ) : IF H$-CHR$(C13) THEN FOR J=1 TO25:FOR 1=1 TO 30:6(1,.20-0:МЕХТ:М 
GOTO 140:ELSE 1140 
^ 1160 t"39 Л 310 FID / ツ ツ " キ "2, 
G(RX,RY)=9:FOR 1=1 TO 50:BEEP1:COLOR10 : LOCATERX,RY:PRINT'O" ; :LOCATERX,RY:P 
"+ :PUTGACTÉXRX, 8xRY)-C16xRX*-15, 8xXRY*7),CX,PSET: BEEPO : NEXT:COLOR7?,0 
SC=SC+B0 : QX=RX : QY-RY : GOSUB670 : LOCATEQX OY: PRINT" "; SYMBOL (QXx16,, 8XQY ) , STR 
›,1,1,7:ВО=В0+50 : С050В670 : GOSUB620 : GOSUBA60 : RETURN 


O GU O X UO X c 


寺 ミ は きす 6 らい の ギャ ンプ ラー。 
め っ ぱ ぽう 強い と ウワサ の パソ コン ・ ジ 
ャ ン 師 と ポン ジャ ン で 8 番 勝負 。 も ち 
点 は 、 お 互い 500 点 。 は だ た し て 、 キ ミ 


は パソコン ・ ジ ャ ン 師 に 打ち 勝て る だ 
ろう か ! 


ー ド ゲー ム 「 ポ ンジ ャ ン 」 の パソ 
ュ ン 版 。 ほ ん も の と は 少し ルー ル の 違 
2% 5509327. 

RUN す る と 、 ま ず 、 乱数 で 親 が 決め 
ら 畔 ます 。 ヴ レ イヤ ー ー が 親 に な っ た 場 
合 は 、 画面 下 に パイ が 9 っ つ 並び 、 1 一 


MEDE [| 


パソ コン 版 ポ ボン ジャ ン 。 
チョ ン ボ だ け は 気 を つけ よう 。 


POMJONG 


9 の 数 字 が その 下 に 表示 る れ ま す 。 役 
づく り を 考え ん ながら 、 パ イ を 捨て て い 
っ て くだ きい 。 捨て ハイ は テン キー で 
選び ます 。 捨て た パイ は 画面 の 中 段 に 
並び 、 残 っ た 8 枚 の パイ は 左 か ら 順番 
に 並べ な お きれ ます 。 次 に パッ コン 側 
の 番 と な り 、 捨て られ た パイ が 上 段 に 
並び ます 。 こ れ を どちら か が あがる ま 
で О КИ Р бк | 

ッ ツモ っ た り 、 パ ソ ュ コン の 捨て ハイ を 
ロン で きる と き に は 、 す ぐ |AI を お し て 
〈 だ さい 。 役 が 判定 され 、 得 点 が も 5 
ぇ ます 。 あ わ て て [IA を お な し た も の の 、 
$a ン ボ だ っ た な ん て い кары 
-50 点 と いう 罰金 に な り ま すじ ソコ ン 
側 も と きど き チ ョ ン ボ を し ます )。 


青い パイ 90 MT 赤い パイ 


キー 坊 … キ ー 坊 が | 組 あ れ ば (40 点 ) 
ロク レン … 同 じ | 組 が 2 つ あ れ ば (30 点 ) (gag (se a s 


イッ シュ 


イッ ショ ク … | 色 だ け (25 点 ) 


サン ショ ク …3 色 (20 点 ) 

3 種類 の 絵柄 (20 点 ) 
ポン ジャ ン … ど れ で も 3 組 (0105) 
*※ 親 の と き は 点 が 2 倍 に な り ま す 。 ま た 、 同 


時 に 2 つの 役 が つい た 場合 に は 2 つの 役 の 点 
が も ら え ます 。 た と えば 、 


40 


| 色 3 種 な ら 45 点 、 


| 種類 の 絵柄 だ け (25 点 ) (il) (DOS OO 


D00 228 


ТШ 


| FE 6 連 な ら 55 点 と いう ぐあい で す 。 も ちろ 
ん 、 そ の と き に 親 で あれ ば 90 点 、 110 点 と い 
う 高 得点 も 可能 と な り ま す 。 


ひと 勝負 終わ っ だ ら 、 何 か 適当 な キ 
ー を お し て くだ さい 。 パ イ が 配り な お 
され 、 次 の 勝負 が 始ま り ま す 。 8 回 勝 
負 で 、 得 点 の 多い ほう が 勝ち で す 。 


バイ の 種類 A 


マーー EC パイ の 種類 は 
限ら れ て いま す 。 絵柄 は 、 船 、 飛行機 、 
自動 車 、 キー 坊 の 4 TERES А сә 


S 
ug. 


To 3^. 
と も お 忘 


くれ ぞ れ の パイ の 下 に 数 字 が ふっ て 
ある の で 、 テン キー の —|[9 e fio c 
切り ハイ (捨て る ハイ ) を 指定 し ます 。 
ツモ っ た と き (同一 ハイ が 3 枚 ずつ っ 、 
3 組 を ろ っ た と き ) や ロン (НЧЕ 
て た パイ を 拾っ て あがる こと ) し た い 
と き に は [Al を お し ます 。 こ の と き 、 小 
文字 の a し か 受け つけ な い の で 、【C 
AP】 ミ キー は 解除 し て な お いて くだ さい 。 


evw-[Z] [8] 回 
a- [4] [8] (6 


分 類 思考 型 ゲ ー ム 


言語 BASIC 


… グ ラフ ィ ッ ク 用 (飛行 機 ) 
… グ ラフ ィ ッ ク 用 (Ж) 

… グ ラフ ィ ッ ク 用 (自動 車 ) 
… グ ラフ ィ ッ ク 用 (キー 坊 ) 
… ソ パイ FH 

… パ イ ・ シ ャ ッ フ ル 時 の フラ グ . 
… プ レイ ヤー の 持ち ハイ 
… ソ パソコン の 持ち ハイ 

… ソ ー ト 用 | 

… ソ パソ コン の 思考 用 

… ソ パソ コン の 思考 用 
…FOR 一 NEXT ル ー プ 用 
…… グ ラフ ィ ッ ク の 座標 

… グ ラフ ィ ッ ク の 座標 

… グ クラ フィック の 座標 

… グ ラフ ィ ッ ク の 座標 

… グ ラフ ィ ッ ク の 座標 

… グ ラフ ィ ッ ク の 座標 


| l 


パイ を 引く 


МРОТ1-9 sr a 


作者 の プロ フィ ー ル 
ФЕН ОЛЕ СО. 
/ パ コン は 去年 の 3 月 、FM-7 を 高校 

の 入学 祝い に 買っ て も らい まし だ 。 
ポン ジャ ン は 、 は じ め て 作 つ だ 本 格 的 

ね ワー て C づ 。 バー ト フ ブーム の リン シ ン 
ン の 移植 で すか 、 オ ナル の デー ム と 
は いこ くつ が 違い あります 。 


バイ を 引く 


/ バ レコ ン の ディ スフレ イ は 目 に 悪い よ Ez ib b denm の EERIE 
DC WIARE FU TLE РОСТ EAE КО: DX. D 
は ボソ フー コン を ほぼ つて いま す 。 パフ コン の id 


A YT сч í 
POPCOM 本 誌 に も 2 回 掲載 それ まし 


=, | dab En RS 
大 学 は 、 理工 系 に 進み だ い の て 9 が ガ 、 | MORD De De iz. 


コン ピコ ュー マ は あご ぐま で も 趣 球 とし て つ 1234567289 
き あ いた いと 思 つ て いま す 。 


200 の の の の や や プ や や や ゆ の や ツ の サヤ ヤ や や や ササ や サ や ササ ひひ や で 
29 Ф 
3 Ф POMJONG GAME ver 1.0/2.0 hd 
4 ‚ (PART 2) @ 
n. copyright(C) 1983/1984 % 
67% v 
7 i by Y.Nakada 月 8 日 /1 月 4 日 v 
8 7% Ф 
9 ・ 


の の の ウツ ツウ タツ サヤ や ツヤ サ ヤツ サ ヤヤ ヤツ ササ で ササ や 
10 COLOR7,9:CLS:UIDTH49 , 20: CONSOLE? , 20 , 9 , 9 
22 DEFINTA-Z:DIM A(80),B(80) ,C(89 ) ,D(89) ,D1(89) , E( 128 ) :N ま (1 )=" ア ナタ " :N$(2) 2 235" 
30 LOCATE109 , 15:PR INT "シル "ラク オマ チク タ * 94" 
40 FOR 0-11 TO 48:READ А(0):МЕХТ 
50 FOR 0-9 TO 54:READ B(Q):NEXT 
60 FOR 0-8 TO 51:READ CCQ):NEXT 
70 FOR Q-0 TO 128:READ E(Q):NEXT 
80 RANDOMIZE TIME :PS1=599 : PS2=599 : 0Y=INT(RND( 1 )ж2)+1:0(0Ү)=1:)=0 


ЈА К< 


41 


` 90 FORA=9T089:D1(A)=9:NEXT : ХМ=0 : YMz10: XPz0 : ҮР=110 : №0 

100 2-.%1:1Ғ J=9 ТНЕМ1160 

110 FORA-1TOS89 

120 7Z=INT(RND( 1 )%X89)+1: ITFD1(ZZ)=1 THEN120 

130 D(A)=ZZiD1(ZZ)=1 :NEXT 

140 CLS:FORA=1T08:P(A)=D(A) :NEXT:P(9)=9:G0SUB 510 

150 FORA=1TO08:P1(A)=P(A):NEXT 

160 FORA=2TO16:P(A-8 ) =0 А) :NEXT:P(92z0:GOSUB 510 

170 FORA=1TO08:P2(A)=P(A)kNEXT :5=17 

180 IF 0(1)=1ТНЕМ 190 ELSE 

190 BEEP:LOCATE 29,14:PRINTUS TING "アナ タ HHHHV77';PS1:LOCATE 29,5: PRINTUSING' 795 HHHH 

テン ' PS2 

200 SYMBOL(15,1842,'123456789' ,6,2,7 

210 P1(9)=D(S ) : XX=29 : YY=169 ; 60508550 

220 LOCATE 29,16:PRTINT "キリ 人 ルイ?( 1-9)" 

230 A ま =INKEY も : IF A$-2'' THEN 230 

240 LOCATE 29,16:РБІМТ" 

250 IF VAL(A も )=9 THEN 270 ELSE IFVAL(A も )=9 ТНЕМЕ-Р1(9):060Т0300 

260 F=P1(VAL(A ま ) ) :FORA=VAL(A ま も ) TO 8:P1(A)=P1(A+1 ) NEXT: GOTO280 

270 IFA$-'a' OR А%-"А" THENH=1 : 6070680 ELSE 234 

280 FORA-1TOS8:P(ADZP1CA) ; МЕХТ:Р‹9 ) =0 :6050В 510 

290 FOR А=1 TO 8;Р1(А) =РСА) ; МЕХТ 

300 Р1(9)=0:ХХ=20 : ҮҮ=160 : 605068550 

310 S=S+1 : IF S>=79 THEN 1000 

320 XP=XP+42: IF XP>699 THEN YP=YP+22 : XP=9 

330 GOSUB 1090 

340 IF МЕ-ҒҰ9 AND N=5 THEN P2(9)-2F:FORA-1TO9:P(A)zP2CA) :NEXT: GOSUB510 : НА=0 :H72:L 

OCATEO,9:PRINT'743J/!!"':GOTO?00 

350 Р2(9)=0‹(5) :FORAZ1TO9:P( A) ZP2CAD? :NEXT: 60508510 

360 ҒОРА-1Т709:Р2(САО-РСА):МЕХТ 

370 FORA=1T09:M(A)=P2(A)\ 9:NEXT 

480 МММ-0:ҒОРА-1Т707:ІҒ M(A)=M(A+1) AND M(A)=M(A+2) THEN MMM=MMM+1: IF А<5.ТНЕМ A= 
А+1:МЕХТ ELSE390 ELSE NEXT 

390 IF MMM=3 THEN H-22:60T0680 

400 FOR A=1TO7:IFM(A)=M(A+1) AND M(A)=M(A+2) THEN МА) =1 ;: М5(А+1 ) =1 ; М5(А+2) =1: ІР 
А<5 THEN А=А+3:МЕХТ ELSE 410 ELSE NEXT 

410 FORA=1T08: IFMSCA)=9 AND MS(A+1)=0 AND MCA)-MCA*1) THEN MS(A)=2:MS(A+1)=2 
420 NEXT:FOR 0=1T09:IF MS(O)=9 THEN 440 ELSE NEXT 

430 O=INT(RND(1)%x9)+1:IF MS(O)=1 THEN430 

440 IF MMM=2 THEN FOR A=1 TO9:1F MS(A)=2 THEN МЕ-М(А):М-5 ELSE NEXT 
450 XM=XM+42: IFXM>699 THENYM=YM+25 : ХМ=0 

460 GOSUB1020:PPPzP2(0) 

470 IF0=9 ТНЕМ490 

480 FOR 0-0 TO 8:P2(Q)=P2(Q+1):NEXT:P2(9)=0 | 

490 S=S+1 :GOSUB659 :FORQ=1T0299: IF ІМКЕҮФ-"а" THENP1(9)zPPP:H-21:GO0TO680 ELSE NEXT 
:60T0190 

500 REM 

510 IFP(9)=9 THEN E-7? ELSE Е=8 

520 FOR AA=1 TOE:FORAB-1 TO E 

530 IF PAB)>P(AB+1 ) THEN SWAP PCAB)D,PCAB-*1) 

540 NEXT:NEXT : RETURN 

550. REM 

560 IF P1(9)=9 THEN E=8:ELSE Е=9 

570 FOR A-1TO E:LINE(XX,YYO-C€CXX*41, YY+29 ) ,PSET, 7,BF:IF P1(A)>89 THEN PUTGA(CXX , YY 
-3)-CXX*41,YY*182 ,E, PSET: GOTO630 ELSE ON P1(A)\ 2741 GOTO 580,600,620 
580 PUT@( XX, YY )— (XX+41 。 YY+29) ,А,РЅЕТ,Р1(А) #9 

590 GOTO 630 | 

600 PUTGCXX,YYO-CXX*41, YY+29 ) ,B,PSET, ‹Р1(А) -27 0*9 

610 GOTO 630 

620 PUTGCXX,YYO-COXX*41, YY*20),C, PSET, (Р1(А)-452Ұ9-1 

630 XX=XX+47:NEXT A:IF E=8 THEN LINECXX, YY )-(XX+41 。YY+29 ) , PRESET, , BF 
640 RETURN 

650 FOR А=0 TO 9:MM(A)=9:MS(A)=9:NEXT 

660 RETURN 

670 REM 

680 НА-0 

690 IFH=2 THEN719 ELSE ҒОРА-1709:Р(АО-Р1(А):МЕХТ:605/В510 

700 FOR Az1TO9:U(A)-2PCA):NEXT:GOTO?20 

710 FOR А-1 TO 9:U(A)=P2(A ):NEXT 

720 FORA-1TO9:UUCA)ZUCA)* 9:NEXT 

730 FORA-1TO?7STEP3:IFUUCA?)2UUCA*1) AND UUCA*12-UUCA*2) THEN НА=НА+1 


42 


y: UA Ex E s o a sp. ЖА: ЖАЙ % ФА, "ЯСЫ. Үт j 
АИ NU PUN УТРО ЕР Ae у о И 


У АУП үү, ла А ұтса ауасы Са О E УЛ ҰЛУ és £ PAS dic "A PAL TOME EP MT 0n r3 EA аа ТЕ” 5 Я à 4.5” TP یھ‎ ^ lof ж» No 4 о и 
ОИЕ E UR HIE, EOS greg i un AAA RECHNEN ens RS VEN oe CO nn 
Eo MEL owe MAN OON 4 PZ сала ад. UM WE ARR RT VL 4% È ç ` [ , Гер 
MERC EE QR A MN ЖЛ IP p PA EDEN IARE vis YN ПА" V - 
MACC LN ME o o 
>i a 


740 NEXT:IF HA<>3 THEN LOUCATE19,19:PRINT "チョ ン ホ " ! ! -59 テ ン " : SUAPOK( 1 ) , 0( 2 ) : IFH=2THE 
М Р52-Р52-50:60Т090Е( 5Е Р51-Р51-50:060Т7090 
750 PSzO:LOCATE 3,10:РРІМТМФІН); '/72"U' :1 ОСАТЕ17, 10 
760 FOR А=1 TO 9:IF ША) ›80 THEN PS-PS-*40:PRINT't-*"-':GOTO 900 ELSE NEXT 
770 IF(UMUMU( 1 )\3)=(MM(C4 )\3)-1 AND (ММ(402ҰЗ2-(ММ(72ҰЗ)-1 THEN YA(1 )=1 
780 FORA=1TO?STEP3:UA(CA)=WU(A) MOD 3:NEXT 
790 IF UAC10«»UACA) AND WA(1)<>WA( 7) AND WA(4)<2WA( 7) THEN YA(2 )=1 
800 IF UUC10-UUCAD) OR WW(1)=WlW( 7) OR UUCADZUUC?) THEN YA( 3 )=1 
810 IFCUUC10x*35-2CUUCAD)* 3) AND (MMC4 )\3)=(MM(7)\3) THEN YA(4)=1 
820 IF MA(1)=UA(4) AND WA(4)=WA(7) THEN YA(5)=1 
830 Р5-0:ІҒ YA(4)=1 THENPS=PS+25: PRINT'4»»a '; 
840 IF YA(5)=1 THENPS=PS+25:』 РРІМТ "19537 '; 
850 IF YA(3)=1 THEN PS=PS+39 :РРІМТ "ロク レン "`; 
860 IF ҮА(1)=1 THENPS=PS+29 : PRINT "サン ミュ '; 
870 IF YA(2)=1 THENPS=PS+29 : PR TINT "サン ミ ョ ク "j 
880 FOR Aa=1 TO5kYA(6)=YA(6)+YA(A) sNEXT 
890 IF YA(6)=9 THEN PS=PS+19:PRINT ‘ж° у>“ + '; 
900 BEEP1:FORAZ1TOS50:NEXT:BEEPO:FOR А=170100 : МЕХТ :ВЕЕР1 : ҒОРА=170150 : NEXT:BEEPO :F 
ORAz1T0200:NEXT:BEEP1:FORAzZ1TO300: NEXT: BEEPO 
910 IF 0‹Н) =1 THEN PSz2xPS 
920 0(1)=0:0(2)=0:0(H)=1 
930 IF Н-2 THEN Р51=Р51-Р5:Р52=Р52+Р5 ELSE Р51=Р51+Р5:Р52=Р52-Р5 
940 LOCATE 28,10:PRINTPS;'7»' 
950 FOR A=1 ТОб:ҮАСА ) =0 : МЕХТ 
960 IF H く >2 THEN 990 
970 FOR A-1 TO 9:Р1САО-Р2(СА):МЕХТ 
980 ХХ=50 ; ҮҮ= 70 : 60508550: 
990 А%-ІМКЕҮ%:ІҒАФ-"" THEN 990 ELSE90 
1000 LOCATE 10,10:PRINT'Ua92t32 7"A':SUAP 0(1),0(2) 
1010 GOTO 970 
1020 LINECXM, ҮМ) -CXM*-41,YM*20)2,PSET, 7,BF:IF Р2(0) >80 THEN PUTGACXM, YM-32-CXM-*41, 
YM-*182,E,PSET: RETURN ELSE ON Р2(0) *27+1 СОТО 1030,1050,1070 
1030 PUTG(CXM, ҮМ) -CXM*-41, YM* 202 , A, PSET,P2CO)D X9 
1040 RETURN | 
1050 PUTG(XM, ҮМ) -‹ХМ+41 , ҮМ+20 ) 。B,PSET 。(P2( 0 )-27 ) 9 
1060 RETURN . . 
1070 PUTQ(XM,。YM)-(XM+41 。YM+29 ) ,C,PSET, Р2(0)-45) 9-1 
1989 RETURN 
1090 LINECXP,YPO-OXP*41,YP*200,PSET, 7,BF: IF F>89 THEN PUT@A( XP 。YP+3)-( XP+41 , YP*1 
8),E,PSET: RETURN ELSE ON ҒҰ 27-1 GOTO 1100,1120,1140 
1100 PUTG(CXP , YP) - CXP*41, YP*225 , A, PSET,F X9 
1110 RETURN 
1120 PUTGCXP,YP)-CXP*41, YP 4222, B, PSET, CF-27)0€9 
1130 RETURN f 
1140 PUT@(XP 。YP )-(XP+41 。YP+22 ) 。C 。PSET 。(F-45 )\9- 1 
1150 RETURN ; 
1160 SYMBOL (100,60), "САМЕ OVER',5,3,4 
ALIA FPS3 >PS2 JHEN SST ELSE 5-2 
1180 N$(S)=N ま も (S )+ "ノノ カチ" 
1190 SYMBOL ‹ 150,130 ),№‹(5) ,5,3,2: END 
1200 DATA 4095,-4096,3,-4,963,48,12291,-3904,3120,1020,13311,-1,-244,-16180 
1210 DATA 12483,4080,13068,13056,-13297,780,-16333,960,-15364,3135,-1,-13117? 
1220 DATA 63,3,0,16218,0,48,-16384,0,3120,0,0,-4096 
1230 DATA 12288,0,60,0,0,768,0,15,-1024,3,48,3072,960,-49,0,12480,-16192,63 
1240 DATA.4092,-1024,13056,12492,195,-3841,-12349,3888,-16192,-12544,-1009, -961 
1250 DATA 12,-16336,13056,783,-4,-16384,-16384,48,12,0,12288,1008,252,0,1023,-16 
384 | 
1260 DATA 255,-256,0,16383,-256,0,-15361,-16384,48,4080,0,3072;12288,3,15372,0 
1270 DATA 204,15360,63,-13,0,3084,255,-16381,783,48,4092,-12301,-256,15603,-196 
1280 DATA 48,-13249,12480,12300,-15568,3084,831,-13309,195,0,-15616,3840,15 
1290 DATA -1,-409,-24961,-16,102,32767,-3073,-8065,-13,-1,-6145,-3073 
1300 DATA -7,-13;-15361,-385,-769,-3841,16383,63,-193,-256,255,16383 
1910 DATA -16384,15423,—32,0;16383,-2048,1951,-8,121,-6145,-511,-1561 
1320 DATA -2,6654,31231,-97,-1,-1;-1,-409,-24961,-16,102,32767 
1330 DATA -4096,127,-16,-4096,2047,-3844,-1023,-16,831,127,-1024,192 
1340 DATA 16383 , -64 а 6З , "I E -256 , 16383 , -1 У ~16321 , or , -32 , 16383 4 =; 
1350 DATA -8161,-1,-8,2047,-1,-2041,-1,-2,511,-1,-1,-1 
1360 DATA -1,-409,-24961,-16,102,32767,-3073,-8065,-13,-1,-6145,-3073 
OTO DATA -7,712,-153614,—3065,—-769?,—-39841,16383,-1,-193,-1,-1,16383 
IGSB.OATA/€1,7961,71,-19052,163803,-52,265927,—-1,-7,—-6145,-1,-1561 
1990 DATA -*1,-2,31231,-1,-1;^1,0,0,0 
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いう だ) 49 O C 0 CL 


ЭЖ, ビル の 
と 名 画 が 閉じ 込め られ 


7 FED E КЕ 火災 カ 


中 に は 幼稚 園児 
AS qd 

この ピン チ に 登場 し た の が 、 274 
ヤー・ ロ ボッ ト の ロビ ン 。 消防 士 が 入 
っ て いけ な い 火 災 現 場 で も 、 も の と も 
し な い 高 性 能 ロ ボッ ト だ 。 で も 、 さ す 
が の ロビ ン も ファ イヤ ー・ ボ ー ル に は 
ひと た まり も な い 。 が 
は た し て 、 ロ ビン は 無事 、 幼 稚 園児 
を 救出 で きる だ ろう か 。 


ロビ ン を 
テン キー で 操作 し て 、 幼 衝 児 と 名 画 
を 救出 し ます 。 

幼稚 園児 と 名 画 は 2 、4、6 階 に 閉 
じ こ め ら れ て いま す 。 救出 する に は 
屋上 か ら 階 下 に 降り て い くし か 手 は あ 
り ませ ん 。 ビ ル の 床 は 軟質 部 分 と 硬質 
部 分 に 分 か れ て いる の で 、 う まく 軟 質 
部 分 を 発見 し て 穴 を 掘り まし ょ う 。 


人 ム (① ビ ル の 床 床 を どん どん 拠る 3。 
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FM—7, NEWT7, 77,8 


あっ / 幼稚 園児 が あぶ な い / 


さあ 、 ロ ビン 、 救 出 に 向かう ん だ 。 


1 階 は 火 の 海 。 火 の 粉 が 左 

に 達する と ゲー het その 前 
Cen Eres ACIEM と 名 画 
を 救 山 じ だ いな の て す 。 OPCS 
5 、7 階 に は ファ イヤ ー・ ボ ー ル が 十 
り ま わっ て いま す 。 うま く ぐ タ ダイ ミン グ . 
を は か っ て 穴 を 掘ら な いと 、 ロ ビン は 
ЖАСЫ, 

ZY DEG 


К 


ー に 向かい まし ょ う 。 1 回 に ひと り し 

か 救出 で き な い の で 、 少なく と も 3 回 

は ビル を 上 下す る 必要 が あり 2 е pP 
と に か くく 人命 救 助 が 第 一 。 Шы 

fite MP ice о 

度 に 全部 取る と 高 得点 に 結び つき ます 

が 、 こ と も の 救出 に 全力 を 尽 す こ と 。 


操作 方 法 


ロビ ン の 操作 に は 、 テ ン キ ー の HIl[2] 
を 使い ます 。 階下 に 降り る に は 
[] を 使っ て 、 ビ ル の 軟質 部 分 を 掘り + 


ょ うち ょ ん じ 


幼稚 園児 の 救出 だ 。 


А/25%. 9 


幼稚 
剛 児 を 救出 し た ら 、 急 いで 救出 モン タ 


O ee 
OO ° XX 
eene ре д ERR E 


[5] 
йз Укы ЕТ 


[:] (хей) 
分 類 アク ショ ン ゲ ー ム 
言語 BASIC 


作者 の プロ フィ ー ル 


` DOE SC 7 ED. 加納 高校 年生 。 
FM- フ を 2 年 前 、 高 校 合格 の お 祝い に 
軸 つ て も らい まし た 。 それ 以来 、1 日 
2 時 間 は 使っ つて いま し た が 、 今 は 受験 
を ひえ 、 ま つ だ こよ わ つ て いま せん 。 

ぽこ の ゾー ム つ こり は 、 ま す 、 キヤ 
ラク を 作る こと か ら 始 まり ます 。 キー 
セ ャ ラノ を あれ これ 動 グ の し て いる うち _ 
に アイ デア が わき 、 だ ん だ ん ゲー ム と 
し て 完成 し て いき ます 。 そ ん な 作り 万 
を し て いる だ の め の 、 ノ フロ ー テ チャ マー に の よ 
つ な も の は まつ だ ぐ 書 きま せん 。 ご この 
п с < し た 
いて 、 も つと よく な る と 思い まず すず 。 

大 学 に 進学 し だ たら 、 化 学 を 専攻 し た 
いと 思 つ て いま す 。 マ イコ ン 以 外 の 趣 
味 こ し て は 店 楽 、 こ くに ポリ ス な どの 

ГУ 225% CS. u 


AGRAR, EIEND EH. 


FIRE PRESS プ ログ ラム リス ト 


1000 71 FIRE PRESS COPYRIGHT 1983 BY K.M.D. ' | 
1010 1 КАМОН HIGH SCHOOL (GIFU PREFECTURAL) MICRO COMPUTER CLUB | 
1020 '! PROGRAMED BY SHOJI KATO ФЕЛИМ Г. КА! 
1030 71 YASUNARI SUMI :PC-8001/PC-8001-*PCG-8100 | 
1040 71 TOMOYUKI SHIKANO:JR 100 | 
1050 | JUN YAMADA :РС-8801 | 
1060 * 


1070 UIDTH80,25:CONSOLE 0,25,0,0: DEFINTA-Z:HS750:RANDOMIZE TIME 

1080 DIM ВІ0СК%(10),СН1%(100),РІС%(100),Е0В%(100),ҒІКЕ%(35),Ғ(12,15) 

1090 FOR І-0 TO 9:READ BLOCKX(IO:NEXT:FOR I-0 TO 98:READ CHIXCIO:NEXT 

1100 FOR І-0 TO 98:READ PICXCIO:NEXT:FOR I=0 TO 98:READ ROBX(CIO:NEXT 

1110 FOR І-0 TO33:READ FIREXCIO:NEXT:GOSUB 2260 

1120 5С-0:Е0-3:5Т-1 

1130 CLS:FFX=12:FU=49:FRX=1 : RX=9 : РХ1=РХ:ТХ=11 :ТХ1=ТХ : Х=12:Ү=0 :Х1=Х:Ү1=Ү:5=0:СНІ= 
9 : SCH=9 : PP=1 

1140 COLOR 6:LOCATE 68,0 : PRINT HIGH SCORE ' : LOCATE 68,4: PRINT'YOUR SCORE ':LOCATE 
68,21:PRINT'CHILDREN' +: LOCATE 68,16:PRINT'LEFT':LOCATE 68,12:PRINT' SCENE" 

1150 COLOR ?:LOCATE 68,2:PRINTHSx100:LOCATE 75,18:PRINT RO-1:LOCATE 75,12:PRINT 
ST:PUT@A(559 , 1 49 ) -(581 , 155 ) , ROBX,PSET 

1169 GUSUB 1859 

1170 “MAIN 

1180 LOCATE 68,6:PRINT SC※199 

1190 A$- INKEY$: IF A$-'' THEN 1230 

1200 K-INSTR('2135.',4A$):0N К GOSUB 1400, 1420, 1440,1460,1490 

1210 LINECX1x40*8,Y1x12*8)-CX1x40*39, Ү1%12%23), PSET, 9 , BF 

1220 IF X=12 AND Y=9 AND CHI-1 THEN CHI-0:SCH-SCH«1:FOR I-0 TOS:BEEP1:FOR J-0 TO 
3J:NEXT:BEEPO:FOR J=9 TO 25:NEXT:BEEP1:FOR J=9 TO 3:NEXT:BEEPO:NEXT:PUTGA(S500-* SCH 
ж%35,180)-(531%5СНхж35,195),СН1%,Р5ЕТ:5С-5С%5:ІҒ SCH=3 THEN 1650 

1230 IF F(X。Y)=1 OR F(X,Y)=2 THEN GOSUB 1790 

1240 PUTGACXx40*8, Үж12%8)-(Хж40%39,Үж12%23),К0В%,Р5ЕТ:Х1-Х:Ү1-Ү 

1250 “ҒІРЕ BALL 

1260 RX-RX«*FRX:1IF РХ>11 OR RX<1 THEN FRX--FRX 

1270 FORI-2TO10STEPS8:LINECRX1x40*8,1x12*8) -CRX1x40*39, IX12*23) , PSET,0,BF 

1280 PUTG(RX*40*8,1x12*8) -CRX*40*39,I1*X12*23) ,F IREX,PSET,6:NEXT 

1290 RX1-RX:IF (Y=2 OR Ү=10) AND X-RX THEN 1540 

1300 ТХ-ТХ-ҒЕХ 

1310 LINECTX1x40*8,80)0-(TX1x40*39,95)0,PSET,0,BF 

1320 PUTG(TXx*x40*8,80)-CTXx40* 39,950 ,FIREX,PSET,6 

1330 TX1-TX:IF Y=é AND X-TX THEN 1540 

1340 FU=FMU+1: IF FU<79-STX19 THEN 1380 

1350 FFX-FFX-1:FU-0 

1360 IF FFX-0 THEN 1610 

1370 LINECFFXx40*8,1762-(519,1912,PSET,2,BF:PUTG(FFXx40-11,176)-CFFXx40*20,191), 


"^ FIREX,PSET,2 


1380 GOTO 1180 

1390 'MOVE 

1400 YsY*1:IF Ғ(Х,Ү)-5 OR F(X,Y)=4 OR Y>12 THEN Y=Y1 

1410 RETURN 

1420 X-X-1:IF X«0 THEN X=9 ELSE IF Y MOD 2-1 THEN X=X1 

1430 RETURN 

1440 X=X+1:TIF X>12 THEN X=12 ELSE IF Y MOD 2-1 THEN X=X1 

1450 RETURN 

1460 IF Y=9 THEN RETURN 

1470 YzsY-1:IF F(X。Y)=5 OR FOC VIS 4 OR Ү<0 THEN Y=Y1 

1489 RETURN 

1499 IF Y=14 THEN RETURN 

1500 IF F(X,Y+1 ) く >5 OR X=9 OR X=12 THEN RETURN 

1510 LINE(XX49+8。Y※12+23)-(X※49+39。Y※12+31 ) ,。PSET ,9,BF :F(X。Y+1 ) =0 : РЕТОРМ 
1520 IF F(X,Y-1)<>5 OR X=9 OR X=12 THEN RETURN 

1530 'SUB 

1540 PUTG(C(Xx*x40*8,Yx12*8)-CXx40*39, Yx12*23)2 , ROBZ,XOR, 6 

1550 R=R-1:FOR 1=0 TO 3000:NEXT:RO-RO-1 

1560 IF RO«1 THEN SYMBOL(199,5), GAME OVER',3,2,7 ELSE GOTO 1130 

1570 IF HS«SC THEN Н5-5С 

1580 FOR І-0 TO 3000:NEXT 

1590 5ҮМВ01(100,178),"НІТ RETURN KEY',2,1,7 

1600 A$-INKEY$:1F A$-CHR$(C13) THEN 1120 ELSE 1600 

1610 CIRCLEC18,19020,30,2,,,,F:CIRCLE(8,1902,15,6, , , ,F:FOR 1=9 TO 100:BEEP1:BEEPO 
: NEXT , i 
1620 FOR І-0 TO 526 STEP 6:11МЕХ(0,190)-(І,199),Р<5ЕТ,2:МЕХТ 

1630 FOR І-199 TO 24 STEP -2:LINE(0,1902-(526,12,PSET,2:NEXT 

1640 FOR І-526 TO 0 STEP -ө: 1 ІМЕ(0,190)-(1,25),Р5ЕТ,2МЕХТ:Р0О-0:60Т0 1560 
1650 SC-SC*5x*xST:STsST-*1 

1660 IF ST MOD 3-0 THEN GOSUB 1690 

1670 SYMBOL( 100,10), "BONUS !',4,2,5 

1680 FOR I-0 TO 3000:NEXT:GOTO 1130 

1690 CLS:FOR І-0 TO 639 STEP A:LINECI,11620-CI*1,199D,PSET,A,BF:LINECI*1,119)2-(CI-* 
5,199); Р5ЕТ, 4,BF:NEXT 


リス ト 続 く 
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1700 LINE(0,1132-(90,90),PSET, 7, BF:LINE(0O,92)-(30,105),PSET, 5, BF:LINE(35,92)-(87? 
,105),Р5ЕТ,5,ВҒ:(ІМЕ(0;107)-(92,107),Р5ЕТ,2:11МЕ(0,109)-(92,109),Р5ЕТ,2:СІРСІЕ(9 

кла Э,2,,,ЗАГТБІКСКЕСӘ2;11293;95%6%-ұ,%Ғ 

517108 СІКСІ Е(50,110),15,0,;,3Ғ:СІКСІЕ(50,110),10,7 

1720 РОТ04А( 550,100)-(581,115),Р0В%,Р5ЕТ 

1730 FOR I-100 TO 500 STEP 40:FOR J=9 TO 15:PUTGACI,1002-CI*31,100*.), CHIX,PSET: 
NEXT : NEXT 

1740 SYMBOL(10,105,'VERY GOOD!',7,2,7:SYMBOL(12,112, VERY 6000!",7,2,1 

1750 FOR І-500 TO 100 STEP -40:FOR J=9 TO 15:LINE(I,100)-(I431,100*.) , PSET,O,BF: 
NEXT : NEXT 

1760 LINE(559,199)-(581 ,115) ,PSET,9,BF 

1770 FOR I= 500 TO 100 STEP -20: РИТФАСТ, 100)-CI*31,1152,ROBX,PSET:L INECI,100)5-CI* 
31,115),PSET,O0,BF;NEXT 

1780 FOR I=0 TO 3000:NEXT:LINE(10,10)2-(639,50),PSET, 0, BF : RETURN 

1790 IF F(X,Y)=1 AND CHI>9 THEN XzX1:YzY1:RETURN 

1800 IF F(X,Y)=1 THEN СНІ=СНІ+1 

1810 FOR I-0 TO 2:BEEP1:FOR J=9 TO 5:МЕХТ:ВЕЕР0:ҒОР J=9 TO 20:NEXT:BEEP1:FOR 2-0 
TO S:NEXT:BEEPO : NEXT 

1820 IF F(X。Y)=1 THEN SC=SC+1 :F(X。Y )=9:RETURN 

1830 IF F(X,Y)=2 THEN SC=SC+2xXSCH+1 :F(X。Y )=9:RETURN 

1840 "SCREEN 

1850 ВІС-8-5Т:ІҒ BLC«1 THEN BLC=1 

1860 FOR FY=3 TO 24:PUTG(0,FYx8)-(15,FYx8* 7) ,BLOCKX,PSET,BLC:PUTG,(512,FYx8)-(527 
,FYX8* 7) ,BLOCKX,PSET,BLC:NEXT 

1870 (ІМЕ(8,02-(15,199),Р5ЕТ,0,ВҒ:11ІМЕ(512,02-(520,199),Р5ЕТ,0,ВҒ 

1880 1МЕ (480,0) - (525, 24), PSET, TP. LINE(482, 9 >= (523, 24), PSET, 0 , BF : SYMBOL (493,0) 
, t 22 1. 2 

1890 :LINEC8,19120-(25,176) ,PSET,2,BF 19YMBOL (9,1760, X ,2,2,7 

1900 FOR FX=9 TO 32:FOR FY=3 TO 24 STEP З 

1910 PUTQ(FXX16,FYX8)-(FXX16+15, FY%8+7), BLOCK%。PSET , BLC 

1920 NEXT:NEXT 

1930 FOR СҮ-2 TO 7 STEP 2:PUTGA(C8,CYx24*8)-(39,CYx*x24*23) , CHIX,PSET:F(O,CYx2)z1:P 

UTGACA88,CY«x24*8)-(519,CYx24*423)» ,PICX, PSET: PUTG@(488,CYx24+8)-(519,CYx24+23 ) , PICX 
;XOR,CY:FC12,CYXx2)z2:NEXT 

1940 FOR FX=9 TO 12:ҒОЕ FY-1 TO 16 STEP 2:F(FX,FYOz5:NEXT:NEXT 

1950 FOR VY=1 TO 13 STEP 2:FOR 1=1 TO 19:F(INT(RNDx12 ) ,VY )=4:NEXT : NEXT 

1960 RETURN 

1970 'CHARACTER DATA 

1980 DATA 32382,0,-6169,-6169,-6169,0,32382,32382,0,0 

1990 DATA 0,0,0,0,0,0,0,0,0,0,4668,15504 

2000 DATA 1122,17952,2402,17984,573,15488,146,18688,500,-24704,3071,-32 

2010 DATA 5119,-56,2047,-48,254,32640,2340,9360,31,-2048,511,-128 

2020 DATA 4095,-16,32767,-2,-1,-1,16383,-4,8163,-14344,8163,-14344 

2030 DATA 2047,-32,255,-256,15,-4096,3072,48,7169,-32712,3072,48 

2040 DATA 0,0,4094,32760,31,-2048,511,-128,4095,-16,32767,-2 

2050 DATA -1,-1,7038,-16680,5859,18096,3554,-14488,893,-16704,219,27904 

2060 DATA 502,-8320,4095,-16,7167,-24,2047,-48,0,0,2926,28088,0,0,0 

2070 DATA 0,0,4095,-12304,16383,-30724,16382,508,16335,-4,16263,-24580 

2080 DATA 16383,-4,16351,-4,16351,-4,16383,-25092,16383,-4,15872,124 

2090 DATA 12288,12,0,0,0,0, 0, B Ll, ii 4096,12303 

2100 DATA -16384,30723, -16383, -909,—-16385,-7509,-16263, -25085, *16263,7589,-16292, 

-509 

2110 ПАТА -16289,-253,-16257,-25341,-16257,-253,-16384,3,-16384,3,-16384,3 

2120 DATA -4096,15,-1,-1,-1,-1,-1,-12289,-1 ,730721,-2,511 

449€ DATA 749,-1,-121,724977,-1,-1,-33,71,;733,-1,-1,-25089 

2140 DATA -1,71,71,-1,T1.71,71,—-1,71,-1,-71,-1,0,0,0 

2150 DATA 0,0,0,0,0,0,0,0,7,-8192,511,-128 

2160 DATA 4081,-28688,2047,-32,-7170,32711,16382,32764,16359,-6148,-7688,8071 
2170 DATA 504,8064,504,8064,0,0,8190,32760,7,-8192,127,-512 

2180 DATA 511,-256,1023,-128,2047,-64,8191,-8,32753,-28674,16383,-4 

2190 DATA -7169,-57,12415,-500,12319,-2036,-8185,-8185,343,-5504,511,-128 

2200 DATA 1020,16320,8190,32760,0,0,0,0,3,-16384,0,0 

2210 DATA 7,-8192,511,-128,4081,-28688,2047,-32,-7170,32711,12414,32268 

2220.DATA 12319,-2036,-8185,-8185,343,-5504,504,8064,0,0,8190,32760,0,0,0 

2230 DATA -16384,0,3168,0,0,0,24675,0,1840,0,-16129,-26624 

2240 DATA 3135, -2048, 25567, -7256,3983,-6208,511,-400,927,-72,1663,—196 

2238: DATA 6831;-8,2535,-32,31,-256;1,-4096,0;0 

2260 'TITLE 

2270 SYMBOL(150,102,'FIRE РРЕ55",3,1,6:5ҮМВ01(152,11),"ҒІРЕ PRESS',3,1,2 

2280 PUTGA(100,30)-(131,45),PICX,PSET:SYMBOL(160,30)0, "PICTURE ,2,2,6:SYMBOL (400, 
30), BONUS ` ,2,2,1 

2290 PUT@A(100,50)-(131,65),CHIX,PSET:SYMBOL(160,50),"CHILDPEN ”,2,2,6:SYMBOL (400 
902,180 PTS 7” 2 2, 1 

2300 PUT@A(100,70)-(131,85),CHIX%,PSET:SYMBOL(160,70), "(ІМ BOX)",2,2,6:SYMBOL (400 . 
ЫЗ; 5808 PIS, 1. 2y2 t 

2310 PUTGAC400,130)-(431,1452 , ROBX, PSET: SYMBOLC365,1352, '1',2,1,5:SYMBOL (460, 135 
24 73. 42314,5185 YMBOL CA07,1152,'5 ,2,1,5:5YMBOLCA07,1552, 2 Ара ce с Ес dui» 

2320 5ҮМВ01 (400,180), "HIT RETURN KEY',2,1,3 

2330 PUTG(200,1302-(231,145),FIREX, XOR, 6: SYMBOL( 150,150), FIRE BALL ',2,1,6 

2340 А%-ІМКЕҮ%:ІҒ A$-CHR$(13) THEN RETURN 

2350 Р0Т8(200,130)-<231,145),ҒІҺЕ%,Х08,6:60Т0 2330 


Q о О 0.0 0 OQ 


この 街 で は 、 dull CHA AC 


ゃ な く て 、 拾 う も の 。 街 の 住人 で ある 


ウォ ー ク マン は 、 今 日 も ひたすら 歩き 
続け て お 金 を 拾い 集め て いる 。 

だ けど 、 世 の 中 を そん な に 甘く な い 。 
歩い た 跡 は 二度と 歩け な いし 、 ゴ ミ も 
いっ ぱい 落ち て いる 。 き て 、 る さて 、 今 
日 の ウォ ー ク マン の 稼ぎ は いく ら に な 
る や ら 。 


ウォ ー ク マン を 操作 し て 、 ひ だ すら 
歩く ゲー ム 。 一歩 進む た びに ポイ ント 
が あがる の て 、 ひだ すら 歩い て 得点 を 
株 ぎ ま し ょ う 。 ド メ 袋 の 「$」 を 拾え ば 
(ぶつ か れ ば 、 拾 っ た こと に な る )、 ボ 
ー ナ スポ イン ト が 面 数 に 応じ て も ら え 
ます 。「*」 は 次 の 面 へ の カギ で 、 拾 う 
と 新しい 面 に 進む こと が で きま す 。 
だ だ し 、[$」「*」 り 外 の キャ ラク 
ОСЕ dub ry 12312 


ム ① ウ ォ ー ク マン 2 の は じ ま り だ 。 


死ん で し まい 、 ゲ ー ム オー バー。 意 地 
の 悪い 穫 明 な ゴミ も と きど き 落 ち て い 
る か ら 注 意 が 必要 で す 。 ゴ ミ 以 外 に 、 
自分 の 足跡 に ぶつ か っ て も お し まい で 
す 。 | 


] 面 を クリ アー し て 2 面目 に 進む と 、 


上 下 あ る い は 左右 の どちら か の カベ が 
な く な り 、 反 対 側 に 突き 抜け る こと が 
で きる よう に な り ま す 。 さ る ら に 4 面 に 


進む と 上 下 左 右 の カ べ が な く な る の で 、 


うま く 利 用 すれ ば 、 高 得点 に つなが り 
ます 。 

500 ポイ ント 稼ぐ と 、 ブ ザー が 鳴っ 
て ウォ ー ク マン が ひと り 増 加 。 得 点 を 
の ば し て 、 ハ イス ユア ・ ベ スト 5 に 入 


れ ば 、 フ "レイ ヤー の 名 前 を 書き 込む こ 
と が で きま す 。 


ウォ ー ク マン は ひたすら 一 定 の 方 向 
に 進む の で 、 テ ン キ ー の [6] 
を 使っ て 方 向 を 変え ます 。 


SCORE 516 POINT 


^ J 
А 
ә VOU CAN NEXT PLAY ' x 
š 4 


АО, Аж, 


FM-7, NEW7,77,8 Rus 


さあ 、 お 人 金 を 捨 い な が ら 
ひたすら 歩 こ ご う 。 


[2] 
EN 改造 の ポイ ント 


470 行 と 890 行 の 「SC>500」 の 数 
字 を 修正 する と 、 ウ ォ ー ク マン が ひと 
り 追 加 る れる スコ ア を 変え る こと が で 
а e b ku [S6»300J] $4 
れ ば 、300 点 に な っ だ た とき に ウ ォ ー ク マ 
ン が 増え ます 。 

分 類 アク ショ ン ゲ ー ム 
言語 BASIC 機械 語 


作者 の プロ フィ ー ル 


UIPga—C9iD. コン ピュ ー タ の 専 
門 学 校 学生 で 、 プ ログ ラマ ー を めざし 
て いま す 。 いま は 、 も つば ら COBOL 
を 勉強 中 ! x 
Q-( 312 ESC. FM-S FE 
用 し て いま す 。 今回 の ウォ ー フ マン 2 


は 私 の は じ め て の 投稿 作品 で す 。 完成 
し た と き に は 傑作 だ と 思い まし た ガ 、 


いま で は 、 だ いぶ 不満 が あり ます 。 夏 
休み に は アド ベン チャ ー の 大 作 を 作り 
だ いと 思 つ て いま す 。 期待 し て いて ご 
だ さい 。 | 

— 3 BAD. О 
2. 休み 中 は こち ら の 万 も 楽し お つも 
cS. 
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The Walkman プロ グラ ムリ スト 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


а оуан гаа TS АЛЫ Di олтар алараа і ERA EE TS Yr DC ONIS CR が 


CE REE SE EE CE TEE A 
КЕРЕТ “маты” man. 21 1414 


| 

| 

| 

| programed by kK.Takeuch1i 
| 

| for FM-/。8(C ハ "イソ ク CPU) 
| | 

| 


^ 
r 
^ 
4 
7 
” 
7 
^ 
^ 


59% 1H 11H 
چن د چ‎ АКАР ーー 
CLEAR,&HSFFF iDIM NE$(C5)2,HS(5)2,NC102:60T01120 
СА=1:В0=10:ВХ=0 iDE=1 :LF=1 :MA=1 : МЕ=0 : Р0=1 : SC=9 : BE=1 
WIDTHAO ,25:60SUB980:DE-0 :CLS 
X-INTCRNDC12x20)2*10: YZINTCRNDC12x10)*5 
MOZINTCRNDC12x4)*1:MEZME*1:IF ME>4 THEN ME=ME-4 
IF ЕМ<28 THEN 290 
IF MA>4 THEN CR-219;MOTOROFF ELSE СЕ=135 ; МОТОРОМ 
IF МА28 THEN LE=1 iCR=244 ELSE 1Е=0 : 6070310 
IF MA»4 THEN CR-219 ELSE CR=135 
IF MA»8 THEN LEz1:CR-244 ELSE LE-0 
ON ME GOTO 320,330,350,370 
( ІМЕ(1,12-(38,23),СНР%6(254),1,В:60Т0370 
І.ІМЕ(1,12-(38,1),СНВ%(254),1 
( ІМЕ(1,232-(38,232,СНК%(254),1:60Т0370 
І ІМЕ(1,1)-(1,23),СНЕ%(254),1 
( ІМЕСЗВ,1)-(38,23),СНЮ%6(254),1 
СА-ІМТ(ЕМО(12ж62%2:ІҒ МА-1 THEN CA=7 
СО) ОЮ?:10САТЕ10,0:РРІМТ"5СОРЕ  :' 
COLOR10:LOCATES33,1:PRINT'L ^ ; МА; 27 
J=J+1 : IF J-2 THEN J-0:6GO0TO470 
ХН=ІМТСРМО (1 ө ж36 ) +2; YH2 INTCRNDC12x21)*2 
COZINTCGRNDC12*X6)*1:NN-2INTCRNDC120x50)0*1 ` 
IF ММ>20 THEN СН-ІМТ(РМО(12ж%2212%34:60Т0460 
CH=36: IF NN=7 THEN CH=42 
COLOR CO:LOCATE XH,YHiPRINTCHR ま (CH) : GOTOS10 
IF SC»500 AND BE-1 THEN BE-0 ELSE 490 
FOR 1=9 TO99:EXEC&H6080 : EXEC&H6088:NEXT 
SC-INT(SC?:COLOR?7:LOCATE 18,0:PRINT SC; POINT" 
K$-INKEY$ 
IF К%= "2" THEN М0-1:60Т0730 
IF К%= "4" THEN MO-2:6G0T0730 
IF K$-'6' THEN MO-3:G0T0730 
IF К%= "8" THEN М0-4:60Т0730 
GOTO?30 
PP=SCREENK( X, Y) 
IF PP=9 THEN PO=PO0/2:SC=SC+PO:PO=PO*2: RETURN 
IF PP=36 THEN SCzSC-*BO:EXEC&H6000 : RETURN 
IF PP-42 THEN 940 ELSE 790 
LOCATE X,Y:PRINTCHRS(CCR) 
SU=SU+1:IF SU=LE THEN 400 
SU-0 : EXEC&H6989 : EXEC&H6088 : GOTO400 
IF X239 THEN X=1:RETURN 
IF X-0 THEN X-z38:RETURN 
IF Y=9 THEN Y=23:RETURN 
IF Y224 THEN Yz1:RETURN 


COLORCA:0N MO GOTO 740,750,760,770 


740 
250 
760 
270 
780 
790 
800 
810 
820 
830 
840 
850 


. 860 


870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


YzY*1:GO0SUB670: 60508580 : GOTOG30 
XzX-1:G0SUB670 : GOSUB580 : GOTO630 

Х=Х+1 : 60508670 : 60508580 : GUTU639 
YzY-1:60SUB670 : 60508580 : GOTO630 

IF FM=8 THEN MOTOR OFF 
EXEC&H6949:SC=INT(SC): IF LF=1 THEN 890 
COLOR6:LOCATE 10,0:PRINT'SCORE :';SC; POINT" 
IF SC<HS(5) THEN 860 

FOR I0 TO ?:COLOR I:LOCATE 11,23: EXEC&H6080 
PRINT'You are Hi-Score !':EXEC&H6088:NEXT 
ІМЕ‹0,0)- (639,199) ,РЅЕТ, 0, ВЕ: GOSUB1920 

СО ОРД :1 ОСАТЕ 10,12:PRINT'TRY AGAIN 2  (Y/ND' 
K ま =INKEY も : IF K$-2'Y' OR К%= "у" THEN 210 

IF K$-'N' OR K$2'n' THEN 1540 ELSE 870 

IF SC<599 THEN 810 ELSE LF-z0:ME-ME-1 


COLOR7:LOCATE 10,12:PRINT'YOU САМ NEXT PLAY !" 


FOR 1=0 ТО 3000:NEXT:EXEC&H6020 
LINECO,02-(639,199) ,PSET,0, BF: UIDTHAO , 25:60T0240 
IF FM=8 THEN MOTOR OFF 
MAzMA-1:EXEC&H6020 : SC2 INTCSC) 
LINECO,02-(639,199) ,PSET,0,BF:BO-(MA-1)x5*10:PO-PO*1 
COLORS*LOCATE 12,3:PRINT'SCORE :';SC; "POINT" | 
IF DE=9 THEN 1000 ELSE RANDOMIZE(CTIME/3) 
COLORS:LOCATE 10,3:PRINT'HI-SCORE :";HS(1); POINT" 
DY-50:FOR DX-100 TO 200 
COZINTCRNDC12x7?72*1:DY-DY*1:EXEC&H6060 
LINECDX,DY2-C639-DX,199-DY) ,PSET,CO,B 
NEXT : COLOR? 
( ІМЕ(7,9)-(32,15),СНЕ%(135),0,ВҒ 


IF РО<10 THEN 1070 

LOCATE 7T,10:PRINT 447. アル クコ "よこ | うっ ・ ?POs "POINT" 050701080 
LOONTE 7,10 1PRINT 15* MZ ET 7-5 3POTCPOINT- 

LOCATE 7,12:PRINT^'$, CBONUSO eS BOF POINT. 

EDCATE Y, TASLPRINT まま (KEY) >< NEXT TRY 


FOR I-0 TO 3000:NEXT 

CLS:IF DE=9 THEN 230 ELSE RETURN 

WIDTHAQ , 25 : COLORA: RESTORE 1660 

INPUT 7 マイ コン ^ АТУ? FM-8 FAD ? (Y/ND ',ANS$ 

IF AN$-'Y' OR AN$-'y' THEN ҒМ-8 

UIDTH80,25: CONSOLE0,25,0,0 

READ T$:COLOR?:LOCATE 20,1:PRINT. T$ 

FOR Is2 TO T:COLOR. 1 

READ T$:LOCATE 20,I:PRINT Т%:МЕХТ 

READ T$: COLOR?7:LOCATE 20,8:PRINT T$ 

FOR 1=10 TO 15:COLOR 4 

READ T$:LOCATE З,І:РРІМТ T$:NEXT 

FOR І-10 TO 15:COLOR 6 | 

READ T$:LOCATE 40,I:PRINT Т%:МЕХТ 

FOR І-1 TO 5:HSCI)221000:READ P$:NES$CIOZP$:NEXT 

IF PEEK(&H6999 )=&HC6 THEN 1280 

SYMBOL( 169 ,189 C 2A*"22 TIF クタ "サイ )7,2,1,7:60Т02370 

FOR I0 TO 4000:NEXT | 

CLS:FOR Y=20 TO 199 STEP 39 : じ = じ +1 

SYMBOL(120,5)5,'---- MESSAGE ----",3,2,5 . 

LINE(89 ,。 Y )-(569 , Y+39 ) ,PSET,C,BF:NEXT:COLOR? 

LOCATE 18,5:PRINT' コノ ケ "ー ム N テン ・key Э "hb"? アル キマ ワル k 45 t) "A " 
EDCATE 4198, 71PRNINT U DSXZN 4 メッ 79 543» 439 N モト / N 9-2 こそ "リマ ス 2 
ИКАТ 1B LOS PRINT 29. 5X4) イコ "ノン メッ ТҮК Ab" -h" 50^ ^B 542 (Qoy — 
LOCATE.19,11:PRINT" r$; (カネ 7%70) 2 ヒロ ウト Ж7-72 ^^«»h h" Е5ІЧА - 
LOCATE 19,13:PRINT' "ж, (3 t") Э ヒロ 9 ウト W$" メン ^ スス ム コト カ " "ФЬ" 
LOCATE 19,15:РРІМТ" 「 ソ ノ タ / キャ ラク ター」 = 1°: テ " ス 。( ナ カニ 人 ルミエ ナイ / ノ モア ル ) ^ 
ГОСАТЕ TB TISBRRINT Td. JA" — 7*hus9U. ТЕ 29327499 リート オー ルル a 7 


リス ト 続 く 
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1390 
1400 
1410 
1420 


1430 


1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1210 
1720 
1730 
1/40 
1/50 
1760 
1770 


1/80 | 


1790 


1800 


1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 


1980 


1990 
2000 
2010 
2020 
2030 


LOCATE 23,19:PRINT' (81 : 

LOCATE 23,20:РРІМТ" | Е 

LOCATE 23, 21 PRINT. F4 ユ ーー キーー 上 6]. 

LOCATE 23, 22:РРІМТ" | 

LOCATE 23,23:PRINT" L2] a 

COLOR CO:LOCATE 45,22:PRINT' Hit any key. 
EXEC&H6080 : EXEC&H6088: IF CO>7 THEN CO=1 
FOR I-0 TO 199:NEXT I 
CO-CO*1:A4$-INKEY$:1IF A$-'' THEN 1440 

FOR Y=9 TO 199:C-INTCRNDC12x?)2*1 

_ІМЕ (80 ;Ү)-(560 , Y) ,PSET,CtNEXT 

FOR I-0 TO 2000: NEXT: FOR Ү=0 TO 199 STEP2 


LINEC8,Y)-C639, Y), PRESET: IL TNECB 199-127-6639 ,;199—- Y), ,PRESET 


NEXT: GOT0219 

WIDTH40,20: 005082290: WIDTH80,25:COLOR 7 . 
SYMBOL (80, 59 ) ," モウ イチ ト " Hi-score ニー イト " ミ マセ ンカ 2” 
SYMBOL( 339 , 90), (Yes) or (No)',2,2,3 | 
A$=INKEY$: IF A$="Y" OR A$="y" THEN 1590 

IF A$2'N' OR A$="n" THEN 1620 ELSE 1570 
SYMBOL(100,1202,'7J-9"* К 3"9"432e« DA" ч ! 
SYMBOL(358,1202, "у" од“ УУ 1,2,3,2 

FOR І-0 ТО 4000:NEXT:GOTO210 
SYMBOL( 199 , 129 ) , "オツ カレ 9X7" シタ 。 マタ アソ ゾン テ " チョ | 
SYMBOL(3109 。120 ) 。 マタ アソ ンチ テ * チョ !',2,3,2 

FOR 1=0 TO 4000:NEXT:LINECO,02-(639,199) , PSET ,。 9 , BF 
WIDTH80,25:COLOR7,0:CLS:END 


2, 3,4 


"ray da 6 


DATA'------------------------- irai ебі. qim m c ptt ee š 
DATA" TTTTTTTTTTT HHH HHM СД ЕЕЕЕЕЕЕЕ . 
DATA" TTTTTTTTTTT HHH МИМ: ЕЕЕ ; 
DATA" PERCI HHHHHHHHHHH  EEEEEEEE  ' 
DATA" мере! HHHHHHHHHHH  EEEEEEEE ` ` 
DATA" ТТТТТ ННН НИМ. CERE. - : 
DATA" FLEET HHH HHH EEEEEEEEE ` 
ПАТА"------------------------------------- З 
DATA" : 
DATA" UU WW AAAA LLL KK KKK ` 
DATA” UU WW AA AA LLL KK ККК: 
DATA" MM WW WW AAAAAAAA LLL KKKKKK i 
DATA” UU шы WW АА АА LLLLLLLL KK KKK "' 
DATA" ШЫ WW АА AA LLLLLLLL KK KKK ` 
DATA" ? 
DATA" ММ MM AAAA NN NN アホ の イア 
DATA' МММ МММ АА АА NNNN NN 22 2g て 
DATA" MM MM ММ AAAAAAAA NN NN NN ソン ; 
DATA" ММ MM АА АА NN  NNNN 22 i 


DATA' MM MM AA AA NN NN 2222222 

DATA Р Popcom 4,Walk man 2,FM-8 is, very good' 
DATA A&- B.C. Ыы fo MUI uM 

MATA TK. LO SW NV RP МЕС От? 
DATA'U У Ы E Wu RUS END" 


LINEGCO,00—(639, 1990, PSET, 8; 
WIDTH40,20:CX=4:CY=7:CU=0:Z 
COLOR3:LOCATE CX,CY:PRINT' 


[ 


FOR I=0 TO 10:N(I)=0:NEXT 


RESTORE1870: COLOR? 

READTS$:LOCATES,6:PRINTT$ 
READT$:LOCATES,8:PRINTT$ 
READT$:LOCATES5,10:PRINTTS$ 
COLOR6:LOCATE15,17:PRINT'NAME : ---------- - 


AS-INKEY$:FOR I-0 TO 100:МЕХТ 
IF A$S-CHR$(C&H1D) THEN CX=CX-3 ELSE 2060 - 
IF СХ<4 AND CY»? THEN СХ-31:СҮ-СҮ-2:0-1 


ды 


л Sd Pe Жы МАЛАРДЫ. 
VA wr ME y t БЫН дайда OR eR SUP 
ЖАРА ШАР тау Т ҚАПАЛЫ» ee a 
PLAT 4 9 COMPTE OT 
r ДЦ А: 
2 í NER LT TSF 


ТИ РК ББК 
К УУ АУА 9 


2040 IF CX<4 AND CY=7 THEN СХ-СХ%3:60702010 

2050 H-H-1:EXEC&H6080 : EXEC&H6088 : 60702180 

2060 IF A$-CHR$(C&H1C) THEN CX=CX+3 ELSE 2100 

2070 IF CX>31 AND CY<11 THEN СХ=4:СҮ=СҮ+2:0=1 

2080 IF CX>31 АМО CY-11 THEN СХ-СХ-3:60702010 

2090 H-H*1:EXEC&Hó6080 : EXEC&H6088 : 60702200 

2100 IF АФ-" ' THEN EXEC&H6989 :EXEC&H6988:GOT02119 ELSE 2010 
2110 CU-CU*1:1F CU>19 OR H-29 THEN 2220 

2120 IF H<>27 THEN 2160 

2130 IF Н-27 AND 220 THEN МЕ(70)-0:7-2-1:060702140 

2140 IF CU=1 THEN С0-С0-1:060702010 ELSE COLOR6:LOCATE21*CU,17: PRINT °- 
2150 CU-CU-2:60T02010 

2160 IF Н-26 THEN CH=46 ELSE IF H=28 THEN CH=32 ELSE СН-Н%65 
2170 LOCATE 22+CU, 17:PRINTCHR ま (CH ) : Z2Z*1:NCZ) CH: GOTO2010 
2180 COLOR3:1F 0-1 THEN Q-0: LOCATEA, CY*2:PRINT" i 


2190 LOCATE CX*3,CY:PRINT" "SLOCATE CX,CY: PRINT' 017700702010 
2200 COLOR3:1F 0-1 THEN 0-0:10САТЕ 31,CY-2:PRINT" қ 
2210 LOCATE CX-3,CY:PRINT" " ОСАТЕ CX,CY:PRINT" =" t 560702010 


2220 М%- -CHR$(NCL)) 4CHRS(NC2) )+CHR$(N(3) 2 &CHRSCNCA) ) +CHR$(N(5) ) 
2230 E ま =CHR ま (N(6) )+CHR ま (N(?) )+CHR ま も (N( 8) 2 YCHRSCNC9 ) ) YCHRSCNC10 ) ) 
2240 МЕ%(0)-М%%Е%:ІҒ SC>HS(5) THEN Н5(5)-5С:МЕ%(5)-МЕ%(0) 

2250 FOR I-4 TO 1 STEP-1:1F HS(1I)>SC THEN 2280 

2260 SWAP HSCI*120,HSCIO:SUAP NE ま ( エ +1 ) ,NE ま (1 ) 

2270 SWAP HS(I),SC:SWAP NES$CIO,NES$CO) : NEXT 

2280 FOR I-0 ТО 2000:МЕХТ:1ІМЕ(0,02-(639,199),Р5ЕТ,0,ВҒ 

2290 SYMBOL(129,19), Today s HI-SCORE',3,4,? 

2300 SYMBOL(125,12), Today's HI-SCORE °,3,4,6 

2310 SYMBOL(122,11), "Today s НІ-5СОҺЕ" ,3,4,2 

2320 FOR І-1 TO 5:COLOR 6-І: T 6+1*2 

2330 LOCATE З,Ү:РБІМТ" (791; °) jiCOLOR 7:PRINT HSCIO; POINT" 


2340 COLOR A:PRINT" =>> '31C0LOR 6:PRINT NESCIO:NEXT 
2350 FOR I-0 TO 5000 :NEXT : UIDTHAQ , 25: RETURN 
2360 “----- 


2370 1=&H5FFF : RESTORE2499 

2380 I-I*1:READ АФ:ІР A$-'x' THEN1290 
2390 D-VALC'&H'*A$):POKE I,D:GO0TO2380 
2400 DATA С6,10,8Е,00,ҒС,86,81,В7 
2410 DATA FD,03,30,1F,26,FC,8E,00 
2420 DATA ҒС,86,01,В7,Ғ0,03,30,1Ғ 
2430 DATA 26,FC,55,26,E5,39,00,00 
2440 DATA C6,FF,8b,00,86,86,81,B7 
2450 DATA FD,03,30,1F,26,FC,8E,00 
2460 DATA 86,86,01,B7,FD,03,30,1F 
2470 DATA 26,ҒС,54,26,Е5,39,00,00 
2480 DATA С6,20,8Е,0Ғ,00,86,81,В7 
2490 DATA Ғ0,03,30,1Ғ,26,ҒС,8Е,00 
2500 DATA А4,86,01,В7,Ғ0,03,30,1Ғ 
2510 DATA 26,ҒС,5А,26,Е5,39,00,00 
2520 DATA 8bE,00,FF,86,81,B?,FD,03 
2530 DATA 30,1F,26,FC,86,01,B7?,FD 
2540 DATA 03,39,00,00,00,00,00,00 
2550 DATA 00,00,00,00,00,00,00,00 
2560 DATA 86,81,B7,FD,03,39,00,00 
2570 DATA 86,01,В7,Ғ0,03,39,00,00 
2580 DATA 54,68,69,73,20,70,72,6Ғ 
2590 DATA 67,72,61,60,20,69,73,20 
2600: DATA 20,77,72,69;74,65,6Е,20 
2610 DATA 69,6Е,20,76,65,72,79,20 
2520 DATA. 65,61,73,19,20,6D,61,63 
2630 DATA 68,69,6E,65,20,6C,61,6E 
2640 DATA 67,75,61,67,65,20,28,20 
2650 DATA [e 79, 20,4B,00,54,20, 29 
2660 DATA "Good luck to you" 
60000 ios KEVE 

60025 IF А%< >" ' THEN 20 

60030 RETURN 


O 0000 O O m 


ゲー ム の スタ ー ト 3 
db-BASIC が な いと 遊べ ませ ん 。 
まず 、 そ れ を LOAD し て か ら 、 ブ ログ 
ラム リス ト を 入力 し て くだ さい 。RUN 
る せる と タイ トル と キャ ラク ター、 キ 
ー 操 作 の 説明 画面 が 出 ま す 。 

敵 の タン ク は 黄色 、 自 分 の タン ク は 
水色 、 ベ ペー ス フ ラ ッ グ は 黄色 で す 。 赤 
レン ガ の 防壁 の 中 で 、 ゲ ー ム は 展開 き 
nz. 

スペ ー ス バー を お す と ゲー ム が 始ま 
り ま す 。 


ぼく の 陣地 に 旗 が 3 本 あり ます 。 こ 
の 旗 を 取ら れ な いよ うに し な けれ ば な 
り ま せん 。 陣 地 は 、 二 重 の レン ガ で 凍 
まれ て いる の で す が 、 向 こう か ら レ ン 
ガ の 壁 を 破っ て 、 敵 の タン ク が ズン ズ 
матат. 

3130 X 7 ZIEL. ЖО t 
で て な いよ うだ も た て だるい 


A①TANK の 攻防 戦 が 始ま っ た 。 
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あっ 、 あ ぶな い / 敵 の 戦車 か や っ て き 
た 。 自 分 の 障 地 を 死守 する の だ / 


自分 の タン ク は 全部 で 6 EDD š TO 
で 、 次 の 画面 に いけ る よう に が ガン バッ 
CARLE Sa 


一 面 クリ ア す る ご と に 、 防 壁 の ある 
画面 と ない 画 面 が 交互 に 出 ま す 。 こ の 
防壁 の パタ ー ン は 全部 で 6 種類 あり 、 
どん どん クリ ア し て いく と 、12 面 ご と 
に 最初 の パタ ー ン か ら 操 りか え し ます 。 
で も 、 こ こま で くる の は 容易 で は あり 
ませ ん 。 

英 の タン ク は 3 台 か ら 5 台 まで 出現 
し ます 。 自分 の タン ク が 6 台 あ る か ら 
と いっ て 、 油 断 は 禁物 で す 。 自 分 の タ 
ンク が 全 減 す る か 、 旗 3 本 を 取ら れる 
Curse penc I9 qe 

自分 の タン ク の 弾丸 は 、 進 行方 向 に 
な ら 自由 に 撃つ こと が で きま す が 、 つ 
づけ て 2 発 撃つ と 、 前 の 弾 は キャ ン セ 
ル さ る され ます 。 

アー ケー ド ゲ ー ム の タン ク バ タリ ア 
ン を 参考 に し た 作品 で す 。 ま っ た く 同 


じ と いう わけ で は あり ませ ん が 、 な つ 
か し く 〈 く 思う 人 も いる の で は …。 


E 


テン キー (82.40. PEG 35 
イス ティ ッ ク を 使っ て 上 下 左右 と 、 方 
向 を 変 た を ます 。 ス ペー スバ ー で 弾 を 発 
射 し て くだ さい 。 方 向 移動 が スム ー ズ 
に 動か な い 場 合 が あり ます が 、 そ れ は 
友 シ ペン し ル し モ くだ さい 。 

分 類 アク ショ ン ゲ ー ム 

言語 db-BASIC 


作者 の プロ フィ ー ル 


今年 36 歳 、 独 身 。 マ イコ ン 歴 は 1 年 
半 で す が 、 マ イコ ン と の つき 合い は 、 
当分 切れ そう に あり ませ ん 。 

最近 の 子ども だ ちの 進歩 に は 、 ピ ビッ 
クリ させ られ ます が 、 広 い 意 味 で の 教 | 
о を 
の ささ しだい ここ 思い ます 。 こ こ ピ ビブ ラフ 
イィ ツク を ぐふ うし た いて で すね 。 

趣味 は 登山 。 


4A② あ っ 、 旗 が あぶ な い / 


こう ば ぼう 


4③ 第 2 面目 の 攻防 。 


Meu c Po Sa UR TRE ы. “ын Т 
g MA est uy ` 


わっ /TANK だ プロ グラ ムリ スト 


18 SCREENG, 0,0 :4IDTH48:CLS4: cL ICKOFF: DEFINTA-Z:G0S8UBR1440:WIDTHAO: SOUNDS, 8: SOUND 
7,255:Uz8H380908: ТЕМРО 15а 

Эй DIM EXYU L10), EXY1AL10), FAC180 , TACIED , ETAMZ CITED, EETAM (19), TEE. (105, XTAMY (19) 

30 GOSUB1848:CLS4 СОВ 11809: МР =3: ММЕМ= й: SCOEZ 0: NMY 26 : МВ =ММҮ: ТАМшМ:ТӨМІітсМ 

да UXY=U+40w23+20:1UXY1=UXY:MY=B:F=0:F29sF:IHATA=3:TAF=U: TAáMizTAÓM:FTAizB 

=й ЕОР1=1ТОМ?:ЕХҮМ CI) = り +TNT CRND C12X24 42) +4 BX2 t EXY TA (1) SEXY CID 1E CIS 28: TACIDS1:ET 

AMZ (І) SV ЕЕТАМИ СІ) =: NEXT INTER I =N 

る 9 FORI-1TONS:0NFA4C12GOTOS82: EURZEXYTA CI): SEXY1XLCI) =ЕХҮХ СІ) 2 GG2S INT ЕМО C12 72 *110N Ü 

О GOSUB220,340,4880,448,448,440,440: IF NTEKI- «aTHEN148 

78 РОКМЕЗЕХҮ1У6(12,32:0М FC GOTOS8:POKESEXYA CIO, TE: ON TACI?) 605065650, 738 

аа МЕХТ: 15 STRIG (R) THENGOSUBAES8 

ой POKEaUVXYI1, 2 :CGENI ТОА -UXY : TXY sPEEK3 (VAD) : POKESUXY, MY: UXY 19 UXY IF TXY2é THEN 

GOSUBS78: GOTO118 

100 XY=STICKCR) :OüNXY/2 GÜSUB2B8HM, 2230.,240,290:F92F: IFXY=ëBTHENF=F%: IF XY28 THEN ON 

F GOSUB26868,2308,250,270 

118 IF FTA1<>08THENGOSLIESS8Ə 

120 GOTOO 

12a GOOsSINT(GNO (19X4) *1:0N GGG GOSUB3468,4880,440,448, 448,440: RETURN 

140 GOGQSINT(RNDCIOXé» *1:0N GRG 50506320, 400,440, 448, 440,448: RETURM 

іа GOQGSINTIRND£CiDXé2*1:0N ООО GOSUSRS2R8,350,448, 440,4468,440: RETURN 

168 SOUNDS, 9: SOUNDT7, 255: GOSS 124 8 

178 NTEKISN?:NMENSNMEN*1: IF ММЕм>-7ТНЕМ NMEN= 0 

188 FORIs1TON9:ETAM*CI)Nz&HZ888:EETAMACID)-E ТАМИСІЗІМЕХТ 

18 GOSUB11798:G0TC4E 

288 UxY-UXY*40:F 21:50 =РЕЕКӘ CUXYT) 

218 1FAD く >32 THENUXYZUXY-48:7279:RETUEN 

228 MYz18:RETURN 

2280 UxYzWUxXY-11:F22:580zPEEKS IY 

24 8 орен, THENUXY =U OY + 1F =F? RETURN 

2509 z7:RETURN 

288 posl -UXY*1:Fz3:65Dz2PEEKS “У? 

278 IFAD4»32 THENUXYZUXY-1:FzF9:RETURN 

280 MY=? RETURN 

298 UXxYzUXY-40:F24:50-PEEKaS WAY? 

280 IFAD¿ >32 THENUXYZUXYt*48:F-ESTIRETURM 

31680 MYZ8:RETURN 

3280 EAD =PEEKQ (ER + 1) 

228 IF PEEK (EVR) =і2ТНЕМЕИ (1) =1: 605065520: 005066568: RETURN 

340 IF ED<>32 THEM GOSUB138:RETURN . 

3580 EXYAI) =EXY (I) 41: TESS: RETURN 

368 EAD=PEEKa (EUR - 1) 

378 IF PEEKS (EVR) -і2ТНЕМЕУ (1) -і:б051З628:00508650:КЕТИЕМ 

3988 IF EAD< >S2THEN GOSUBI4B8: RETURN 

398 ЕХҮМСІЗ-ЕХУМ412-1: TESB: RETURN 

I464 EAeAD=PEEKS (EUR - 408) 

41й IF PEEK (EVR) =12THENFM СІ) =1:00508420:005 UUBA4SB:RETLURN 

428 IF EAD«»32THEN 505081958: RE TURN 

428 EXYW4XO1)-2EXYACI)-46: TE22: RETURN 

444 ЕАО =РЕЕКа (EUR +48) 

45й IF РЕЕКа (EVR? S12THENF C1) 21:G08U08ó20: GOSUBAS G : RETURN 

468 IF EARD く >32THEN RETURN 

470 EXYACI) =ЕХҮИ І) +40: зае А 

дей IF ЕТАї< >90 POXESTAMI,S3 

490 ТАМЕ (IXY 1 TAMI = TAM 

søg ММҮсМҮ-6:0М MMY 65070518,520, 530,548 

Sie ЕТА1с-1:6070528 

S28 FTó1-2-48:G0709558 

S20 FTA1=+1:160T0558 

548 FTA1-2440:GO0TOSS8 

сей TAv-TAàM-FTAi:PisPEEKS (TAM) :P?zP141:0N P? GOTOS 70, 570,570, 576,570 

S40 IFP1«232THEN FTA1=0:POKEJTAM1, 32: RETURN 

578 IFPis-eGOSUBéSiB:IF РТА1=@ТНЕМ P1z8:RETURN 

588 CGEN1:POKESTAMI, 32 

59а CG6GEN1:SODKESTAM, 12: TAM = Té 

508 RETURN 

ó18 FTAis8:P"OKESTAÀM,S2:POXESTAMI, 

420 FTAÀ1280:CGEN1:POKESgTAM, 11:502 


ЈА F $ < 
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5509 SCOE-SCOZ*180:LO0CATE2S8,4:COLORS: CGENG: PRINTUSING'"SHHHAHHHS":CCOE:COLOR7 
548 RETLRN 
é50 ТИ‹1)=1:РОКЕаЕЕТАМИ (І), 32: RETURN 
668 THCID) =2:ЕТАМА І) S (EXYZ XI) EETANMZ て 1 ) = い 
678 TEEAXCIPDZTE*1:0N EEZ て 7) GOTOS6S898,5970,700,718 
688 XTAMA4CcI»--i1:G0TO720 
SFE ХТАМУ ІУ = +401: GOTO72 ° 
788 XTAMACI)2-46:GOTO7 
710 XTAMZCI)-41: мни 
728 ІРРЕЕКа ‹ЕТАМИ CID +ХТАМИ (I) =6ТНЕМ ЕЕТАМИС =ЕЕТАМИ СІ) +X TAM СТ 
738 ETAM (ІУ =ЕТАММИ (I) +ХТАМУИ C1) 
758 IFPEEKSA ‹ЕТАМИ ІУ >) < УЗ2ТЧЕМТИ 61) 51: G0SUB7T80: RETURN 
758 РОКЕЗЕЕТАММА (12.22 
708 ССЕМ1:РОКЕЗЕТАМА (І), 6: ЕЕТАМУ СІ) =ЕТАМИС1› 
770 RETURN 
780 ETT=PEEKS (ETAM 1) > :ETT=ETT-3:0N ETT GOTO 880,810, 820,830, 838. 836, 830 
798 POKERSEETAM'VtIS,32:RETURN 
зай POKESETANACIS,32:605UB84 8: RETURN 
S18 РОКЕФЕЕТАМИ (I), 32: РОКЕЗЕТАМИ CIN 11: 50508840: PORKESETAMVZ CIO, 22: Hé TÀ- HATA-1: IF 
HATA“ = ETHEN?Té BELSE RETURN 
S28 РОХЕЗЕЕТАМИ (I), 32: RETURN 
320 TACIDZ1:POKESEETAMACI), 32: POXESETAMZCID2, 11: GOSUBS«0 :РОКЕЗЕТАМИ (I), 32:695082 
ЕЁ: БЕТЕМ 
848 IF PEEKR ‹ЕЕТАМИ CT うう くう る て THENEETURN 
858 РОКЕЗЕЕТАМИ <I), 32: RETURN 
Зе SOUNDS, 8:FORR-1TO238: TEMPO1888:PLAY"UI14O03D8" NEXT: SOUNDS, 16: SDUNDT, 7: SOUNDS, 1 
4: SOLIND13, S: RETURN 
S70 POKEJVAD, і 1: 60506550: ge E Ди сн сад натан 
ES0 NE=NS-i: phis Асы, =3 
570 IF N95 OR NS3-22 THEN МЗ = 4 
FHA IF Ne=4 OR ob THEN N3=4 
?1@ IF N8-3 OR NE=8 THEN N3=2 
эй FORR1=1TON2:LOCATE28+N2 , 19 +R1:C 
9208 ЧхүҮ=шш+4@жр3+2@: NMY=NMY- 1 :MY- gm: F 
АЙ IFNMY4-OTHENP?4E 
сей RETURN | 
ей “жжжжжежжежжжжее жы A ЖКЖ 
?7@ NB OE s sin oss 
988 FORI=I1TON?:ETAMIZI(CI)=&H3S880:EETAMM CI) SETAMAZCIO:NEXT 
9?"ü8 IF SCOE»-HISCOE TH Ек е SCOE-SCOE 


LENT TOP RNIEXT. 


1000 CGENG:COLORS:LOCATE28, 18: PRINTUSING"HHHHSSBSS":;HISCOE:COLOSAZ 

1810 LOCATE2,18:CGEN8:CSIZE2:PRINTSO," GAME OVER!!!" :CSIZEG:COLORT7 

1424 FORR3 = ATOZ BBB: NEXT:PRLAY"VWISOSE " 

1050 CLS4:NMEN-8:NL-a:GOTO38 

1048 CLS:COLORé:CSIZEi1:CGEN1:LOCATES,2:PRINTHÜU,CERS(CIBO)LILOCATE18, ZICGENG:CSITEi: 
PRINTS,8,"!! Ге aq amd Шелек iay ai sw ЖЖЖ” | 
1858 COLORé:LOCATES,4:CSIZES:PRINT88, "TANK" :LOCATE22, é:CS IZE2Z: COEN1:PR T NT8SG,CHRS$ 
(142 $ СОЕМӨІРБІМТ"”.,. "t COLORT:CSIZEB :CGENM1:LOCATE18, 8:9 RINTS80, CHR$ C13 CHES £12 
2PCHRS$(CISO:LOCATE1S, 8: CGENB:COLORAtPRINT"byv МҮ. MY soft":COLORT:CGEN: 

1868 LOCATES,180:PRINT&8,CHR£$(GDI:CGENG:COLORA&:PRINT" = ENEMY TANK 100 ST: 

1878 LOCATES,14:COLOR7:CGENi:PRINTRGO, CHR$ £85 11 CGENB:COLORI:PRINT" s MY TANK ...4 


ROUND S" 

1088 LOCATES, 18:С01 0К7:СбЕМІ:РЕІМТЯӢ, CHRE (SY; :CGENG:COLORS:PRINT" = Base Frag" 
1898 FORIsSTOS2:LOCATEI,21:CGEN1:PRINTRO, CHR (40 :LOCATEI,22:PRINT&RO, CHRS C45 LOCA 
TEI, 23:PRINT#0, CHR 1$ (4) LOCATE I, 24 :PRINT80Q, CHR$964511:NEXT:CGENGO 

1100 LOCATE11,23:COLORS:PRINT" ере OR Trigger ` " 

1118 COLOR?T:COLORS 

1128 LOCATES2, 15: PRINT" E3 

1130 (ОСАТЕ2З, 18: "RINT"[sps1.... 147 +121," 

1148 LOCATES2,280: PRINT" [21": COLOR7 

11390 IF STRIGON THEN Q = EC э04Бі":БЕТИЯЫ 

1168 IF ӨТКІбЗСІ») THEN Gsi1:PLAY"U 50481": RETURN 

117й GOTOiiSü 

1130 GOSUB1340: GOSUE 1318 

1198 COLORA:CGENB:ILOCATE1,G0:PRINT STRINGS i26, "Buy LOCATE I 
"yy: FOR Rs8TO24:LOCATE1,RIPRINT"Z":$ iLDCATEZS, R:IPRINT У"; 
1208 IF (NMEN: MOD 2) THEN 12208 ELSE N9zN? I № 29 SEEN 
1218 NL-:NL-*1:0N NL GOSUB 13988,1398,1488,14180,1420,1438:IF NL 
1220 FORIs21TO23:F-0RI1z18TO1é6 


«INT STRINGS (25, "Hm 


54 


i230 LOCATEIi, I:CGEN1:PRINT48, CHR$ (4) 
1240 NEXT:NEXT : 


1250 LOCATE12,23:CGEN1:PRINTHG, CHR$ (5) i CHRE (S) :СНЕФ (S) 1 LOCATE 12, 22: CGENT E PRINTRO 
; CHR$ (32): СНЕФ C325 EHRE C32) 
1240 CGENG:LOCATE230,2:COLORS:PRINT"SCORE":LOCATE30, BG: PRINT"HI-SCORZ":COLORT 


1278 IF HISCOE >й THEN:ICOLORé:LOCATE28, і Я: PRINTUSING'HHHHHHH"IHISCOE:COLOR? 
1280 LOCATE38,14:CGEN1:PRINT48, СНЕФ (13) $CHRS C132 CHR (13) : CGENBO : COLOR? 

1298 LOCATE38,14:COLOR4:PRINT"MY.MYsoft":COLORT 

іздей SOUNDS, 18:S50UND7, 7: SOUNDS, 16: SDUND13, 8: SDUND 12, 11 80UND11, ё: RETURN 

1318 COLORT:FOüRI-S28TO2ZSTEP2:FOüRIi1z38TOSASTEP2 

i220 LOCATEI1,I:CGENI:PRINT8O,CHRS$(G) 

1330 NEXT:NEXT:RETURN 

i348 FORRsSGTOZA:LOCATEOG,R:CGEN1:PRINTCHR$ C220 3 CHR $ (32) 3 CHR$ (32) 1 CHR (32) CHRE C32 
J 5 CHR$(2):CHRS$OZ2)0:CHR$(OZOICHRS$OOO2?; CHRS$(G2)1 | 

1350 РЕІМТСНЕ+ (32) :СНЕФ (32) I CHR$ (32) 1 CHR$ C320 s CHRS$ (32) CHR (325 ; CHRE (325 CHRE (За 
У:СНЕФ (325 ;CHFR4 (32); | 

12680 PRINTCHR$(ZZ2):CHR$(OZO:;CHR$(OZO:CHR$(OZO;CHRS(O20;CHR$(OG22:CHR8$ (32) G 

1378 NEXT:RETURM | 

1280 CGENi1:FüRI-ATO26STEP2:FOÜRIi1s4TO22:LGCATEI1, I: PRINTRO, CHRS CA» : NEXT: NEXT: RE TU 
RN 

1290 CGENI:FORIs4TOZ2GSTEP2:FORIis4TO22S8TEP2:LOCATEI1, I: PRINTERO, CHR$ C42 : NEXT: NEXT 
: RETURN | 

1400 CGENI1:FOÜRI-4TOZ2O0:FORI1s4ATO228TEP2:LOCÓAOTE11, I: PRINT 8, CHRE (45 ; CHR$ C320 1 NEXT: 
LOCATE ІМТ CRND ¢1) #K18) +4, I1 PRINT4O, CHRE C4) : LOCATE INT (ЕМО (1) жій) +14, I: PRINTS8, CHRS( 
4) $ CHRS (22) LOCATE INT CRNO CIX185 48, I: PRINTS, СНЕЖ (40 3 CHR$ (32) : NEXT St RETURN 

1418 CGEN1:FORI-ATO28:FORI1s4TOZ22STEP4 :LOCATEIi1, II PRINTRO8, CHAE (4, 4, 4, 32) NEXT: L 
ОСАТЕІМТ ЕМО C1 R18 +4, І:РЕІЧТСНЕФ (32, 32, 22, 32, 320 1 NEXT: RETURN 

1420 CGENI1:FORI-sS4TO28:FORI1-24TO022:LOCATEI1, I: PRINTR8, СНЕФ C4) CHRE C42 : NEXT: LOCATE 
INT ЕМО Ciook1d2 +4, І: РЕІМТВЯ, CHR C320 $ CHR$ (32) 1 СНЕЖ C320 1 СНЯФ (320 t LOCATE INT (AND C 1) ж» 
10) +12, I:PRINTCHR&€ (320 1: CHR$ (32) CHRE (32) $ CHR $ (32) t NEXT: RETURN 

1436 CGENi:FORIs-4dTO2B8STEP2:FORRRs8TOA:LOCATE ІМТ«ВМОСі>жіб» +4, II PRINTRE, CHRE (C521 
CHR $6425 1: NEXTIINEXT: RETURN 

1438 RESTORE 1518 

14580 FOR Іс 0 TO 15 

1468 READ АФ 

1470 DEFCHR$ (I) =HEXCHRS (AS) 

1430 NEXT I 

1498 DEFCHR 和 まで ヨコ) -HEXCHR$(C"GBBgGBBBDGOBOORBGOGOBCOBRBROOCOSGGSSOBBOPBBDOBBaOODOASO" 
15880 RETURN 

1510 БАТА aagaaaccaoccaGGOOGGFF-FiCFEFEiCFFFFF-FEFFiCFEFEi1CFFFF 

15280 рата eanaagaacgcacaaaaGCSDOBFFFFFFDBDBDBC3DBFFFFFFDBDBDE 

1528 сата aaapeagcacecacgaanDBOBDSFF-FFFOBCSDEDBDBFFFFFFOBC3 

1548 рата a8808060008000088880777CF387-F7F 38FFFF-FFF387F7FSSGFFFF 

і==й DATA апааааавоавоаааагаргоғоғгавтвквагвоайоогвеввааеввоай 

1568 DATA ойапаааайааайовйзаЗсзЕ2ЕЗС2йӘӘЕСЗӘЗСЗР2ЕЗС2Й 2ЙЕГ 

1570 DATA азаааапаазаааоаоасавйаавіааайазрваававевізісаййайй 

1590 DATA TFTF9CFéF49CT7TF7FG8880880800000086077 7F 2 CF 5F 59C7TF FF 

1590 DATA SCOBDEFFETFFDBC3BG8BBOGPGGOGBRaSERBS3CDBOBFT-ZTT-FD2CZ2 
1400 DATA ビビ FE ヨコ ゥ 6 ら ビ と ビラ コッ に ビビ ロロ BBHGBBGO9 ロ BB9GFEFE コ ァ ら に ら る F コ タビ 
1618 DATA CaGD3-FETFFDEDB3COPOOGGOGGBBGaRGBERBBCZDSFFETFFDI 
1620 DATA 6D494n56D546D559BAD4T4AAD56^5D549BADAT4A5DS4 
18230 DATA @а@йайй:з1їваөаааайайайайайаайаайаараарайй1в: 
1648 DATA 8880002090800050C02260039854DADAs43E23600285 
1558 DATA i10TE2O04EAJG4T2So06107EZUCcEASd04724500107 
16680 DATA 29З28еЕ212:6і120828386Е31216:1220293 
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宇宙 歴 4989 年 、 つ い に 第 8 次 宇宙 大 
戦 が は じ ま っ た 。 最後 まで 残っ た の は 、 
エメ ラル ド 星 の LEFT МАМ と ルビ ー 
ED RIGHT MAN だ 。 2 人 ( ? ) は 、 最 
後 ま で 生き 残る た め に 、 つい に 食糧 ( メ 
ロン ) 戦 争 へ と 発展 し て いっ だ の で あっ た 。 


遊び 方 & ル ー ル 


最初 に Hu-BASIC を ロー ド し 、 を それ 
か ら 入 力 し て くだ さい 。 

2 人 用 の ゲー ム な の で 当然 だ れ か 相 
手 が 必要 で す 。LEFTMAN と RIGHT 
MAN に 分 か れ て 、 迷路 の 中 に ある メ 
ロン を 早く で きる だ けた だ くさ きん 確保 す 
АЭА, 

制限 時 間 は 100 秒 で 、 迷 路 の 中 に は メ 
ロン ば か り で は な く 、 地 雷 (X) も あり 、 
を それ に あたっ て し まう と 、 そ れ ま で せ 


X 1(Hu-BASIO) 


食糧 危機 だ / メロ ン を 
めぐ る 二 つ の 星 の 戦 い 。 


っ か く 確保 し た 食料 が すべ て パー に な 
っ て し まい ます 。 急 で と 、 つ い 地 埋 に 
あ だ た っ て し まう の て 要 注 意 。 

わり と シン プル な ゲー ム だ けど 、 こ 
うい う の っ て けっ こう 楽し め る ん じゃ 
な いか な ? 


| 操作 方 法 


2 人 用 ゲー ム な の で 、LEFTMAN 
は IAISIMIZI を 、RIGHTMAN は | [6] 
2| の キー を 使っ て 自分 を 左右 、 上 下 
に 動か し ます 。 [W 


(RIGHT MAN) 
分 類 アク ショ ン ゲ ー ム 
言語 Hu-BASIC 


作者 の プロ フィ ー ル —— 


15 歳 の 中 学 3 年 生 。 マ イコ ン 歴 は 、 — 
中 2 より 1 年 。 1 日 、2 時 間 は や っ て | 
いま す 。 ひと つの 画面 の 中 に 自分 の 能 
力 ガ お どの こく らい 生 か せる か 、 チ ャ レン 
ン し て の だ し いと 思っ て し い ます 。 

IA IAA TAPEET 
ント 語 を や つて いま す 。 将来 は コン ピ 
ユー タ 関 折 に すす みた いで すね 。 


POINTER MAN ブ プロ グラ ムリ スト 
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ム A ム ② メ ロン 争奪 戦争 の 開始 
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MZ-80B,2000,2200(S-BASIC) 


秀 オ コー ス に 落第 し た か ら と いっ て 


TA let 


電卓 片手 に や る の は や め ま し ょ う 。 


о O Q Q Ct. x си 


スワ 


| サン スウ ァ ソ ビ と は の | 最初 に 年 齢 を きい て きま す 。 を し て 、 そろ ば ん で も や っ て な いと 60 秒 内 で 
ヨウ チエ ンコ ー ス 、 シ ョ ウ ガ ク セイ コ は 、 ム リ か も し れ ま せん 。 


タイ トル 画面 の 後 、 サ ンス ウ ア ソ ビ 。 一 ス 、 シ ュ ウ サイ コース の 中 か ら 自 分 そん な 場合 は 、 子 ども に 戻っ た つも 
の 時 間 割 、 ル ー ル の 説明 画面 が 出る 。 に あっ だ コー ス を 志ん で 〈 だ きい: り で 、 小 き な 年 齢 を 入力 し 、 簡 単 な 問 
だ し 算 、 ひ き 算 、 か け 算 、 わ り 算 、 2 uc num ы о 題 か ら 試 みて くだ さい 。 
れ ぞ れ が 1 時 限 ず つ 、100 点 満点 、 £88 だ いだい 、 暗 算 で で きる 程度 の 問題 分 類 教育 ソフ ト 
400 点 満点 と な る 。 す が 、 か け 算 、 わ り 算 に な る と 、 w 
制限 時 間 は 、 1 時限 に つき 60 秒 で 、 け て は で き な い も の も で て きま す 。 ТІП” 
問題 は 10 問 ずつ 。 タ イム オー バー に な ん と か 、 並 (?) の 点数 を 取っ て も 、 作者 の プロ フィ ー ル 
る と 、 間 題 の 途中 で も 次 の 時 間 割 に 進 見 し コー ス が 合っ て な いよ 、 も 5 一 度 | 
ん て し まう の だ 。 や りな る いと 、 oblitus». 大 
や り 方 は 、 答 え の 数 字 を 入力 する だ 人 の 場合 年 齢 に あっ た ュー ー ス を 選ぶ と 、 マイ コソ 歴 は 3 年 。 「 ワ ンス ワレ アソ 
け 。 も し 、 人 答え の 数 字 を まち が えて も 、 シュ ー サ イコ ー ス し か な い の で す が 、 E. は ら 年 ほど 前 に 練習 で 作 つ だ も の 。 
訂正 で き な い の で 気 を つけ て 。 これ は な か な か 大 変 。 と て も じゃ な い ご 1 年 以上 、 ビジ ネス フロ フラ バ し 


けど 、 制 限 時 間 内 に な ん て 終わ ら な い の 作成 し て いま せん 。 今 は / ソコ ン を 
re CU : í EOSCBERODCUES. - 


1 КЕМ pF pf i ig ООР opi Q pft Orf ОРЫ ОРОО Ор О Ор Gopi ор dg ft jft 
2. MEM Ө 

5 REM TU y 

КЕМ Li 

9 КЕМ Сорығі aht bu Boku-chan 9% 

^ REM % ш 

ш 

w 

% 


呉服 間 屋 で 財務 を 担当 。 つま り 、 税 
理 十 。 パソ コン を 仕事 に 使っ てい ます 。 


/ НЕМ 1982/08/10 Shiro Kawashita % 
j REM (1934/01/10 Ver“. 2) W 
? КЕМ Wig uu qr urap tp ui qi qi dp (P Op Qj Qj j QU Qj QJ Gp P P P jfi pft yfi 
10 DEF FNRCX)mTINT(RND( 1 ) kX+1) 
11 DIM 8%53).1.%(4). М(510)51.(100 
2 RAltSz"e-FPli-b-bUiAó2$-"-—CG1-C-C"iAan$S-"Cci1DE":AG4d$-"CIDEFGAB-C" 


15 A&S$z-"CBAOGFEDCO":81$z31$-4-31$:(024$:z2$-329$91:03$-z03$-031$ 
14 (%(1) че ЫН Ы АС (2) "ЕУ: 1%(О3) шыты: 1 %(д4) "Тл; 
15% Бф ARAN РУ" "a Б4Фш"Бры Бокци-сһап” КЕ Еф" о” "аку" кл" FAS СЇ) e moron ($ ( 


mngum Qipaq CAROD падр" 

16 БОБОВ SS:PRINT ТАВ) р" "x TL" WUIPRINTSFRIMT "Tua PURO 

17 FOR NE1 TO ЯЕРКІМТ STR$ (N) yy ") "ТКФ СМ) "Жо "sL$ONDSs" 1 0 そつ で TSNEXT 
CR-FRINT. 23) ЖАУ әр" ло аха 0 tta" 

Ке PMINTO "AR Майя т салад 

EPR まま MT "79 ソイ SOO TLXLXOT"x" 

ИЕСИ: "B3 UON. PEIJXOLCOM алат Ата? 
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SSOPRINT- US) コタ イエ табад то の セン 
ӘЗ”РЕТМТ 00) コビー キト リサ イド ギリ ナ nit eM. 
КӨЛӘ CCP west Rw dis or IET: 

ЕМЕ. ізін teur best 
РЫ РЕЛ" で ナタ ササ オイ ブッ s fe "De 
PRINTSFRINT リト リッ コー ジウ Әнуар" 
EORNM TDSPRTNT: КЕТМЕ ` (mo) sa 638. y CU “рел $ TOMB LE 7 で まま た ナド PNE 
Je RBERNTPRINT DABIS) E "cepa エン テウ ツタ" サイ "5 TLNFPUT ` L: 
AO IF kest THEN A= 
пр IF L2-2 THEM Xz1040 
1 ад THEM х=] О 
GA FOR Mel PU 4 

ET PRENT AEH: 5) E CURSOR LOS PRINT NERO OL "ҰМЫ T"cUIFOR Js1 TO 100054 
шаі МЕХТЗРЕІМІ (HRS ӨСТІ еш OOOO ПЕ) 

Р FUR Besi PLUS 
Lm ENG (X) wR S 
A/ CURSOR O OB 
58 GN № SOSUB gi. Sz. 65. 84 


1 Сенін 94 


Чжи EP NI TO io 

AX ТЕ MOMO-L ҰМ) THEM CURS „Ов Ea а PRINT. EOE ieit 1 

ай [IF AMADOR T THE CURSOR tu OE PRINT EBerÜü4sOd-1: CURSOR 298. HB+18 FRTNT EYB 
Ss MON? š BOT. | 

q NN (FPO) X Ce) THER R10 

46 МЕ 


н 


CERT Sp ча yn "kgga tali OA 
THEN MISIL 3% 
59 Ж СОЗ 8) 

| THEN. MUSIC 
BOSUR FoF PRINT. IF AA заны data PRINT 

IP FIO THEN FzOsPRINI TALES TFTA. aT ~E GOTO 54 
vM FRINI ТАВ ІЗ RIGHTEOUS SIS Ега" 

4 CURSOR SS7&FERINT-LSCNZ)1" EEE 


шаш 


[HEN Mus IL 235: 


RINT "Emb dnt w 
|» THEN PRINT КУ?) 
THEN PRINT "Eb 3 
: 2109 THEN PRINT а? жон 
THEN PRINT uaa m" 
2:PRINT ОЗ: "О Фоа GOSUB 90 
=Q NEXT 


б: 


өт 


(924 THEM PRINT "TT97 ужас А" “% 
ӨЗ IF (Пасж4) Ж(ПӨСіө) THEN PRINT “PFO N x ASMUENUIE V7 
bb IF (U6»-16)X*(0ó6z32) THEN PRINT "PTAJ トナ ミキ" 
67 IF (06>=32) k (06740) THEN FRINT "PFO MIT л" 
[HEN PRINT "PTA yltpy" cx 
| 15,123 PRINT "400 жу Р рер "O Fi a"r Da=Ot MUSIC AS: ВОЗОВЕ 90 
$ 13070 77 
э»жіррсіз) GOTO 
DxiD2«sé» GOTO 77 
TABA); "hz" PTAS Aar бу UhESLOYXU S PRINT 
тан сөздер" ^ OT4a go mX"IPRINTIPRINT TàBOb)s"nt bie tortb” PUYA U PR 
RG TE PT») Hg OE za" GOSUE 90 
Du»s-12 THEN Lze3:G0TO 30 
THEN Lamas БОГО Xo 
) SR Gs ESR ERINT е жабыр, nud" 
JH PRINTSIPRINT TABLED f TELES Oe ТӘ Жр INPUT ОЗ 
29 IF 05=0 БОТО 16 

MO фа аен RARE Pannat" r GOSUB BSIEND 
31 PRINT "CENE TYRES; Hg КАР "=" e INPUT LOND SPRINTS MOND ES 
32 ERTNT "(END REE mp EA mg ¢ INPUT LOND PRINT: MEND ES Ed: RETURN 
PRINT "бү туне инда "UR ТУРТ. LGONDSPRINT: МЕМ) ESEREN RETURN 

TE KSAKSEDRIME "eeg Ng O g KAg "Z" K4 "=" ps INPUT L(N) S PRINT: MON) 9K6/K4: RETURN 

DAR Aa BE TORE E з=1 TO S:READ G2$:DATA %,%,% 

i PACES 

EEE Ан ССА LIBEL 
возо Ыф: D9$07$-07$-07$-07$ 073 
PRINT OFS JR 10。BIFRINT STRINGS (QAS, 20) 8 CURSOR 10, 17:PRINT Š 
STRINGS (D$, 527 

iS.l4irPRINT BASrMUSIC à4$:PRINT CHR$CA)SNEXISR 


Kd НЕ TURIN 


ーー 


CURSOR 17 
ETURN 
yo CURSOR 
91 1F е ТО 9o 
92 IF X1$-"P" THEN CURSOR 25.231PRINT БРАСЕФ(14):СОРҮ/Р 1 
4 PRINT CHRS (A) 4 RETURN 
24 IE VALMID (TIS, Ss 220)2:1 THEN FNibzi10 
95 IE EO THEN CURSOR 25.23:PRINT "A446 Amo =" RETURN 
96 CURSOR Z5423:PRIMT RIGHISCEISZ) 8" ta" ТФечТ1%:КЕТМЕМ 


HE] 


әш, UEIfPRIMT "Hit ane ke f "ЗЕТ Х1% 


ey 
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BOS TIV に 乗っ て 任務 を 


すい こう 


RTEA / 


"BOS TIV Ж と は 、 第 8 秘密 行動 部 隊 
が 所 有 す る 戦闘 兵器 だ 。 俗 に xia, 2% 76/4 
OR tv われ て い * る 。 さ る あ 、 こ れ に 
乗っ T. 任務 を 遂行 し よ Je 


遊び 方 ルー ル 


HBOS TIVI は 4 機 

2) 一 定 距 離 降下 する 1 面 ク リア 。 
34-2051. Ф-с0, 

4)* と [4A に ぶつ か る と ょ 1 機 失 いま す 。 
ССН e 
6) 5 TH (2 @ (500073) が 現れ る の で チ 
ャ ンス / (8 面 、11 面 も )。 

7 EEG UC ワニ ジグ ドジ キル あり 05 
8 面 を 重ね る ご ЖА RET: 


BOS TIV を 左右 に 移動 きせ な が ら 、 


下 へ 下 へ と 進ま せる の で 、 カ ー ソ ルキ 
ー の 円 1 円 の 3 つっ を 使い ます 。 


HI-SCORE 
430 


SCORE 
178 


BOS FIV ROUND : 


: MATER 
ЖҰ; Am 


M.M 


AD さあ 、 ゲ ー ム 開始 だ / 
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n 


キャ ラク ター の 説明 


POS TIV 

Id ALIEN 

Ф 20 POINTS 

50 POINTS 

qQ SUPER BONUS 

* DANGER 

スク ロー ル タ イ ブ の ゲー ム だ 
BOS TIV を 敵 に や られ な いよ うに 

うま く コ ント ロー ル し な が ら 、 迷 路 

を 下 へ 下 へ と 進ま せる ゲー ム で す 。 A 

ビ ピード も まあ まあ だ し 、 ス クロ ー ル す 

る と ころ が いい の で は ? 移動 し て い 

〈 感じ を 楽し ん で くだ さい 。 それ に 

SOUND も 〈 く ふう し て 、 ゲー ム を 盛り 

あげ る よう に し まし た 。 


BOS TIV 


4A ム ② ど ん どん 下 ま で 行く の だ 。 


る さあ 、 エ イリ アン に 見 つか ら な いよ 
うに ボイン ト を か せ ぎ な が ら 、 ど ん ど 
O FISSA Y Е リツ の RC 
な か な か 楽し め る ゲー ム で す よ 。 

、 ワン ポイ ント ・ ア ドバイ ス 

エイ リア ン に 追い つめ ゆら れ て 、 行 き 
場 が ながく な っ て も あき ら め な いよ うに 。 
ワー プ ト ン ネル を 使え ば 、 ピ ンチ を 切 
り ぬけ られ る よ 。 こ れ を うま く 使 う の 
が 高 得点 の 秘訣 。 

分 類 アク ショ ン ゲ ー ム 
言語 S-BASIC 


作者 の プロ フィ ー ル 


17. 高松 一 年 。 マ イコ ン は 中 2 の 
=) 

今回 の 作 吊 は 、 自 分 で は 、 少 々 不満 
の ある も の て す 。 Uu I ш, 
好き 。 他 に も プラ ン は ある けど ご BASIC 
ACER Cou vv mV uv 
6 зға) М 2202-22. 
趣味 は 、 音 楽 こ マン ガ 。 


5 HI-SCORE 
43t 


4A③ ざ ん ね ん 、 ゲ ー ム オー バー。 


10 
2 
O0 
4o 
EC) 
оо 
7Q 
go 
90 
100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
200 
219 
220 
230 
240 
2930 
260 
270 
280 
290 
TOO 
ST 
ASQ 
AGO 
AO 
350 
S60 
AZO 
3go 
590 
400 
410 


HzOsVszu5s248:V1z527804:V2-z54208:PÜOKESZ444.0: TEMPO? 
GOSUERB1070 
GOTO750 
CONSOLE: CURSOR S4, В: PRINTUSING"4HEHEE" : S: 
CURSOR SS. 14: FRINTUS ING" HHHH" $ Ki: CONSOLEOS 25. 134 29: RETURN 
Ы == V O T N=: sss 
GET АФ: ІЕАФ=" "ТНЕМВ=0: ВОТО1ВО 
FOEEVM1』 O: РОКЕУІ +2049, O 

IFA$-"B"THENB-z-1 

IFAS$-"R"THENEB-1 

IFAS$-z"B'"GOSUB2GO 'zUF SCR. = 

FmFEEE (1E) 

IFF:-67 THEN BzO0:V1z52784: MUSIC" HGOT+ATE" 
IFF'zó68THENSzS-*Z20: MUSTC" TBO" 

IFF:z71THENSzS-FSO: MUSIC"-BO- OG" 
IFFzg3THENS:-S-e-ZSOOO:MLUSIC"CIDEFGAB-Ct*D-t-E-RMF-G-M-A-EES" 
IFFPz$6BGOTOó10 

Vl=V1+B:FOFEV1, BED 

ЕОКЕУ1+2048. 6 

GOSUBAO ~ "=? ӘС, МЕ. = 

PREDA CL SACRE ене их тало о 
UzSGN(V1-(OP^FUX*-13X40)) 

ТЕРЕЕК (CV-UX-L--1:3 40) =67 THEM LIO 

ІЕРЕЕК (C^ FLIXELIHEAOX1X) =BEDGOTOG 1 O 

ОХ =0Х +U: POKEWV-UXF13XX404. Воз POEEV-204B-LDCE1 X40. 54 
GOTO7O 
шш ІР SCROL 
IFFEEE(V1+40 
MUSIC" +CO" 
CURSDRO, 24: PRINTCHR$ ($11): 

ON C+1 GOTO 350.420 

ド = ド ビ +108 IE Ко>чАК-ЗОТНЕМ C=1 

RETURN 

F"OKEVZ-1. B6: POEEVZ4204B- 15. S4: UX=1 

IF RND(1) >, 5 THEN CURSORINT (ЕМО (1) X28) +1, 24: PRINT" е"; 

IF RNDC1)2W/10THEN СОКЗОКІМТ (ЕМО (1) X28)+1, 24: PRINT"X"35 

IF (В0:=1) ж (ВМ=К) THENCURSORINT (RND (1) X198) +10, 24:2 PRINTES, 1""5 2 BO-Z 
CURSORINT(URNDCIOX28)0-14 24: "RINTES, "e" 
FORI-z1TO29:PÜkEWVZ-Is67:POEkEVZ-2049-15s64: NEXT 

FORIsi1TOA4: POKEVZ- INT (КМО (1) X291) O: NEXT: GÜTOX-SO 
CURSOR14 24: FRINTCHR# (%11) 5 

Ci-Cl-1:IF Ci=6 GOTOASO 

LJX=: 1 s ОТОО 

„шке, ROUND CU Pese 

FORI:-ziTO214: CURSOROs 24: PRINTCHRS$ (E11); 
РОКЕУІ.О:РОКЕУІЗООАВ. O 

ЕОКЕУІ».ФЕр:РОКЕУІ +2048, ó 

МЕХТІ 

CURSOR9 8: FRINT "ROUND CLEAR": 

CURSOR ó., 15:FRINTNS "Ж SOO X"siMi"-"sNXSOOXMS 

GzG--NXSOOXM 

ТЕМЕ О: MUSIC"ROFZ «4 G44FSC2BDBEBEBGEABAC7 " 
MUSIGC"RAOR":Z-zZ450: IF 2->АКТНЕМ Z=ñkE 

AE zAaEFSOrIFAEKI;-1000THENAGE-zi1000 
FORIzZTO14STEFZ2sIFMzITHENUsIW-1 

NEXTI 

IF (M=) + (М=7) ТНЕММ=М+ 1 

IE (М4) (M= 7) + (M= 10) THENBM=10% INT (RND (1) X50) +20: BO=1 
МеМе1:К-О: 8070770 

тезек ISS 

CURSORUX 1: PRINTE6s. 276; 

MUSTC"+B1+QTB+F+E+D+CBABFEDCー 昌 - -A2-83-F4-ES-Déàó- C7":N- N-i 
ІБ(Қот2) X (N70) GOTO770 

IF МгачО THEN Kzo:GOTOZ770 

ニテ ーー ロロ ME OVER--- 

CURSOR1148:PRINT"GAME OVER "; 


ご 


Í BOS TIV ブ プロ グラ ムリ スト | 


リス ト 続 く 
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480 TEMFO4: MUSIC"RADIFGEBFRFRFRGDEDFR-AD3-4C4" 

690 IF S>H THEN CURSORZ,10:PRINT"YOUR SCORE IS HI-SCORE!!!"i:HsG 

700 CURSORS, 15:PRINT"TRY AGAaIN?LY/NJI"s 

710 GET A$:1F A$="Y" THEN760 

720 IF A$="N" CONSOLE: CLS: END 

730 GOTO710 

740 CommOAaMENzz 

750 MUt$-z"RG6BOGF-DGE-*DGERERDRDRFRFRGRAG-GG6-G6-GG8-GG--Gà-à4-64--AE-B-G«-B«C-DEGAEDCBE 
ZCA" 

760 SzO0:Mzi:N-4:E-OiQ-i2:2-200:Wz9:MUzi1:BO-Os:BMsOs4AksSOO 

770 CONSÜULEO, 25: COLOR. , 7, O: CLS 

780 FORI-OTO24: СОКВОКО, I: PRINTE 4, 1"M": SFC (29) 5 "IUE E NEXTI 

790 IF (KO) K (NS =4) THEN Ki1zOo:GOTOSilO 

BOO ド 1=14 

610 FORI-K1TOZ2A4STEP2:FORL-1TOZ2$9 

B20 CURSOR, EL: PRINTEZ« UU s S NEXTL. 

B30 FDRJ=1 TO 4 | 

840 CURSORINT (КМО (1) FEE) +1, IZPRINT" "SINEXTJ., I 

890 FORIsE141TOZ2XSTEPZ2 

860 CURSORINT CRND (1 ) XZ&) +1, IPRINTES, "€"; 

870 IF КМр(1) 5.5 THEN CURSORINT (RND (1) X28) +1, 1: РКІМТ" е": 

880 IF RND(1)2W/10THEN CURSORINT(RND(D Ж2О) +1, IZPRINT'X"; 

890 CURSOR1.ISsPRINTL3.61"F"::NEXTISE1zO 

900 CURSORG;.4:PRINT"HI-SCORE"; 

910 CURSORG, 7: ЕКІМТ "СОКЕ" 

920 СОКЗОКО, 10: PRINT"ROUND'"s 

930 СОКВОКО, 13: PRINT"MATERERASAM" 
940 CURSORQ, 16: PRINT"M. MU 

950 CURSORG,Z2:PRINTLZ.J"BOS TIV"; 
960 CURSORS4, S: PRINTUSING'4HBEEBE" ІН: 
970 CURSORZA4,8: PRINTUSING"4HIHEHEE" $ S 
980 CURSORZ7,11:PRINTUSING'"44":M; 
990 CURSORS, 14: FRINTUSING" HHHH" $ ks 
1000 CURSORZ7.17:PRINTUSING"'4BE"; NS 
1010 V1=53784:UX=1:B=0:U=0:C=0:C1=0 

1020 CONSOLEO, 25, 14,29 

1050 CURSOR12.9:PRINT"BOS TIV's 

1040 ТЕМЦ= 1 ТНЕМТЕМРОА : MUSICHNUS s MU 

1050 TEMFO7:! GOTOGO 

1060 *ш=ш=Т]Т| шшш 

1070 COLOR, só, O: CLS 

1080 CURSORZ,.24:PRINT'BME, “(QN AA. CONT HEF USRA) 
1090 FRINT" ШШ ғ M" часть 
1100 PRINT" ШШШ u =“ w 
1110 FRINT" Ш b. B. ad һ "P. 
1120 PRINT" ШЫЛЫ” ЫШ” "anum" 
1150 FORI-iTO11:PRINT: NEXT | 
1140 MUSIC"R9-E7EXAGFEDEDED1DDDDGGGGGGCDEFGAEZRA--(GB" 
1150 FORI-1TOS:PRINT:NEXT:COLOR,,7 


" 
ң 
`. 
a 


1160 CURSOR1146:PRINTLO&461CHRS$((1110):2 £PRINT"...... ROS TIV(CYOUD "3 
1170 CURSOR1148:PRINTE6, 51" "S PRINT" анин ALIEN"; 

1180 CURSOR11, 10: PRINTES, J"é"::PRINT"...... 2ZOPOINTS! "¢ 

1170 CURSOR11.12:PRINT"a Tm SOFOINTS!"s 


1200 CURSOR i. 14: PRINTLS, "V": tPRINT"...... SUPER BONUS! ! "3 
1210 CURSOR11, 1S5:PRINT"X......DANGER! "š 

1220 CURSOR14.18:F"RINT"LceJa4. AE 1": 

1250 CURSOR19?.19:FRINT"|MageMEEL 1"; 

1240 CURSOR13,23:PRINTE4,2"FUSH CSI KEY"; 

1250 GET АФ: IFAS: *"S"THEN1 250 

1260 MUSIC"AOBABABABABABABABABABABAR" 

1270 RETURN 
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カガミ は ご どこ に 
出る よ / 


Dr cy bx RD, лый 


O 00 の Oo OX 


全 問 正解 し た 人 に は 表彰 


表 影 状 つき 


ボッ クス 


“MIRROR BUX" ゲ ー ム 


F.Kojima | 


FES 


ES 


が 


— nm ти 


РРР ТУР OER SKY 206 1 
ee ee о 
өө ө о 
... oo 
sh oo .. 


... 
. 


DOO YI. OOO UG 
ee 
DOKO OO OO 


ます 最初 に 鏡 の 隠 る きれ る ボッ クス の 

大 きき を 選択 し ます 。 それ が 終わ る と 、 
ボッ クス の 大 きる に 応じ て 、 sh 
Z. |. 一 ) の 鏡 が 設定 され ます 。 
ら の 鏡 は 物理 法則 どおり APER 
光 を 反射 する よう に な っ て いま す 。 だ た 
だ し 、 ボ ックス の 中 に は 、 較 で 表示 る 
れる 物体 も も あり 、 こ れ は 光 を 吸収 し て 
Ж Жы йа E еш COET, 


そこ て i) 光 を 発射 し た 場所 、 ii) 262? 


反射 し て 出 て きた 場所 、 近 ) 光 が 出 て く 
る まで の 時 間 の 3 つの デー タ に よっ て 
鏡 の 場所 を 当て る と いう ゲー ム で す 。 
な お iii) の 時 間 に つ いて は 、 光 は ひと つ 
の セル を 通過 する ご と に 約 0.3 秒 か か 
り 、 こ れ に よっ て 光 が ど の 程度 ボッ ク 
ス 内 を 走り まわ っ た の か が 推測 で きる 
よう に な っ て いま す 。 ま だ どん な 種類 
の 鏡 が 何 枚 あ る か は 、 画 面 に 表示 され 
507, 慌 ま つ 当て て いつ た 方 が 、 
N 9 


| コ わ か っ た ゾ 。 


AD 鏡 の あり か が 、 


( 注 ) こ の プロ グラ ム は 、MZ-1500 に MZ-700 用 Hu-BASIC を ロー ド し た あと 、LOAD [CRIT 
ロー ド す れ ば 、MZ-1500 で も 遊べ ます 。 


4②8X8 の ミラ 


[Í] BEEM SHOOTーー ビ ー ム の 発 
射 を する と き に 使い ます 。 光 を 入れ た 


い 場所 の ヒラ ガ ナ 1 文字 を 入力 する t. 


を こ か ら 光 が 発射 きれ て 、 ど こ か に C 出 
て きま す ( 画 が ある と 出 て こない 場合 
も ある ヨ )。 

[2] ANSWER——- こ に 鏡 が 隠 る 
RE ARE ОРД 
の 場所 も ヒラ ガ ナ 廊 字 で 入力 し ます 。 
また 鏡 の 種類 C. Z. |, — Ш) 
も 入力 し ます 。 み ご と 正解 と いう と き 
に は 、 ボ ックス 内 に その 鏡 が 表示 され 
まま 。 

[3| DATA DISPLAY— t 2427 


ある い は グラ フィ ッ ク キ ー N 


Z 80815 B) を 入力 する と 、 そ れ 
に 関係 の ある デー タ す べ で て が 表示 され 
ます 。 


[4] GIVE UP 一 一 文字 どおり 、 降 参 
と いう と き に 使い は ます 。 で も NEVER 
GIVE UP で が ん ば ろう 。 


すべ て の 鏡 を 発見 する と 、 得 点 と か 
か っ た 時 間 が 表示 きれ ます 。 そこで 正 
解 者 の 中 か ら 希 望 者 に は 、 氏 名 、 得 点 、 
使用 時 間 、 日 付 な ど が 記さ れ た 表彰 状 
が 発行 きれ ます 。 た だ し 、 残 念 な が 6 
プリ ンタ ー (MZ-73) を 持っ て いる 
人 だ け だ よ 。 


難易 度 は ボッ クス (マト リッ クス ) 
の 大 きる に よっ て 変化 し 、3 一 10 ま で 
用 意 る きれ て いま す 。 3. 4 は 初心 者 用 、 
5. 7 が 中 級 ク ラス 、 9 、10 は ヒマ と 


根性 を も て あま し て いる 人 向き 。 初 心 
i-r 


者 用 で e は けっ > 


@ 陣 され る 鏡 の 数 の 変更 :1790 行 
1860 行 に ある ヽ 、 ン ノン 、 一 、 |. ШОЖ 


を 変え る 。 


ー ボ ックス は か な り む ず か し い 。 


信光 の 移動 時 間 : 1410 行 の PAUSE 


Т n 
1 REE M SHOOT 
3 ROTO Di DIS ЭР АМУ 


5 ¿++ + + + š 
ج طا خذاب چ‎ ra 


A③ と うと う GIVE UP し て し まっ た 。 
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3 の 「3」 を 大 きく すれ ば 、 それだけ 
時 間 が 長く な る 。 ま だ た この PAUSE 3 
を と り 、1420 行 の 最初 に PAUSE (R 
NDx20-1) : と で も つけ 加え れ ば 
時 間 を 知る こと は 困難 に な る 。 

分 類 思考 型 ゲ ー ム 

言語 Hu-BACIC 


FB$( 5 ) > プリ ント 用 デー タ 
FC$( 4 ) ・ 入 力 用 文字 列 
FD$(12)  : デー ター 時 退避 
FG$( 5 ) : LPRINT 用 デー タ 
FH$( 3 ) : MUSIC 用 デー タ 
整数 型 変数 
MX ・ マ トリ ックス の 大 き さ 
CI(3) ・ 各 レベ ル の 鏡 数 
画 変 数 表 (2132) ・ 当 た っ た 鏡 の 数 
文字 型 変数 NC、ND ・ 入 力 キ ー の デー タ 
DD$(12※12) : 鏡 の デー タ NN : 試行 回 数 
DA$(12※12) : 当たっ た 場所 の デー タ HX. HY ・ ビ ー ム の 方 向 
DE$ ・ イ ンプ ブ プット ・ デ ー タ の CF ・ 当 た っ た 鏡 の 総数 
集積 用 сб : 隠さ れ た 鏡 の 総数 
DF$(999) : 過去 の デー タ NO(3、10) Ba ns E 
FA$ 


・ イ ンプ ブ プット 用 ワー ク NB ・ デ ー タ 検索 用 ワー ク 


表彰 状 つ き "MIRRORH BOX" ゲ ー ム ブロ グラ ムリ スト 


1000 REM x を る も も る る も る る る る る る すす る る るる すす すす る る る る る: 
1010 REM X 

1020 REM Ж >> MIRROR ВОХ 
1030 REM Ж VER. 1.0 
1040 REM Ж BY F. KOJIMA 
1050 REM X 198238 12A 31H 
1060 REM * 

1070 REM を すす すす すす すす すす すす すす すす すす すす る も す すす ( 

1080 DEFINTA-C.G-Z:DEFSTRD-F: ONERROR GOTO2Z90 

1090 DIM 00% (11,11), раф (11,11) FDEZ) s DE$ (999) , NO (Z, 10) : COLOR, O: GOSUE 1750 
1100 TEMFOó6:FH$(1)zz"-BSRO-BSD-BiX-HFS5-Q4RO-A2RO-BRX"s:FH$(X)-z"-COGCGCG-C":FH$nx"G 
7ROEAGF 3G7CÓORZDSEFGFSEDJ" 

1110 REM DEMO 

1120 CLS: 605082280: CURSOR224, LO: FOS (5) zGCRN$ (22,84 9) t MUSIC ЕНФ (1) 

1130 CURSQR7;.23: INFUT"MATRIX  €3-10) "sMX:IF МХ<3 OR МХ>10 THEN 1130 

1140 CLS:FORIi1z1TOVAL (RIGHTS (TIMES, 2) XI: XXzRND: NEXTI1: TIMES$-"OO: OO: OO" : PRINTTAB 
(1O)s"<< MIRROR BOX  52":0SUB 1870 

1150 REM Өкен ce MAIN —— ке» 

1160 CONSOLE: COLOR7.O: CURSOR 244,20:PRINT の コワ ウサ レタ 3m" € (лут) "t CURSOR2ZS, 21: PRINTUSI 
NG" ` b ~ SS CERO "SCIT CIO Ж C201) 

1170 CURSOR 25,.22:PFRINTUSING" | F — HH "SCIT2) X235 C2 C2) 

1180 CURSOR 25,.23:PRINTUSING" Ш нн НЕСІ CD СО C3) 

1190 СО(ОК?,0:рЕФх"“:СОМӘОІЕ1».6.24,16:С16:РКІМТ"ШУІЗ эзил 7":PRINT " 1 BEEM SHOO 
T":PRINT" 2 ANSWER":PRINT" 3 рата DISPLAY"SFRINT " 4 GIVE UF"s: CONSOLE: PRINTCHR$ 
C212: CURSOR 3541: РАФ=ІМКЕҮФ (1): BEEF: ON VAL (FA#) GOTO 1210,1510. 1650, 1590 

1200 GOTO 1190 

1210 REM ----- BEEM SHOOT ------ 

220 CONSOLE1,6, 24, 16: CLS: CONSOLE: ЕКІМТСНКФ (22) : CURSOR 25, 2: PRINT "zit ЕДЫ” 2) 
3)?" : SFASZINKEYS$(I)D:BEEP:FRINTFAS:DES$zFAÓ$-" " 

1230 GOSUB19?70 

1240 COLOR7.1:0N NC*1 GOTO1 190, 1250, 1270, 1290, 1510 

1250 CURSOR NDX2*15.1:PRINT"EEX3": : IFNNZ99 THENPRINTLSING"##";NN+15 ELSEFRINT"" 
1260 HX=OEHYE1EXmNDI Y=1  GOTO1 TIO 

1270 CURSOR 1.NDXZ*1:PRINT"ASEEXG":: IFNNzZ99 THENFRINTUSING"GSHS":NN-1: ELSEFRINT'"EM' 
1280 HX=1:HY=0: X=1: Y=ND: GOTO13XXO 

1290 CURSOR MXX*Zt*Zs.NDXEX2-1:PRINT"cEEXaG" : IFNNS 99THENFFRINTUSING'##" ММЕ1: ELSEFRINT 
"am" қ 

1300 HXz-1:HYzOs XzMX: YzND: БОТО 550 

1:310 CURSOR NDXZ2*14MXX243: PRINT" А2: TFNNE 99 THENPRINTUSING"4HE":SNN-*1: ELSEFRINT 
" Ші" Н 

1520 HXzxOsHYz-1: XzND: Y=MX 

1330 COLOR7,0 

1340 REM ---------- MOVE ------- 

1550 IF Х=0 ОҚ Y=0 OR XzMX*1 OR Y=MX+1 THEN 1420 


3€ 3€ эе эє 3 36 
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1360 IF DD$(X,Y)-z" 1" THEN SWAFHX.HY 
1370 IF DDS$OX.YO-" Z2" THEN SWAFHXsHY:HXz-HX: HYz—-HY 
1380 IF DD$(X,Y)=" 3" THEN HXz-HX 
1590 IF DD#(X.Y)=" 4" THEN HYz-HY 
1400 IF DD$(Xs Y=" 5" DES$-DES$-",.":GÜSUJB2220:GO0TO1500 
1410 X-cX*HX:YzY-HYslAUSE3:GOTO 1350 
1420 FA$-DD$iY.X)?:DES$-DES$-F-a$: GOSUBZ2220 
1450 REM ------- QUT -------- 
1440 GOSUE1970: COLOR?7 a 1 
1450 IF NCzi1 THEN CURSOR XX2-141:PRINT" МЕ: 
1460 IF NC-2 THEM CURSOR 1, YXZ-1:FRINT"cUEX': 
1470 IF NC= THEN CURSOR СТА YK2+1: FRINT" Ма: 
1480 IF NC-4 THEM CURSOR XX2-1.MXXZ-3:PRINT" ША: 
1490 IF NNZ1OOTHEN FRINTUSING"GÓS":SNNSELSEFRINT".."s 
1500 BEEF: COLOR7, О: GOTO 1190 
1510 REM ーーーーー ANSWER -------------- 
1520 505062260: CURSOR 2542: PRINT "ANSWER" 
1530 PRINTCHRS$(22): CURSORZ6, S:PRINT"X ホロ コウ コープ fu""stFASZINKEYS$GOs:BEEF:FRINTFAS$:G 
CGUE 1970: GOSUE1 720O: XzND:DES$-FAt$-".":IF NCZ21THEN1190 
1540 CURSOR Z26.4:FPRINT "Y Wen? / t£u""s:FAS-INKEYS$(OD:BEEP:PRINTFAS$: GOSUB19?70: GOS 
UB1720: DES$-DES-FAOS$:Y-NMD: IF NCS *ATHEN1 190 
1550 ЕКІМТСНЕФ (23) CURSOR 2745:PRINT '"A2b""FE$::FA$-INKEYS$(GL): BEEF: DE#*$=DE$+Fñ$+ 
"М! IFF0$=CHR% (13) OR INSTR(IEF$,F0$)z0 ТНЕМ1190 
1560 NA デー ( (ЕАФЕ" ч") + (EASE и) 2+ (РАФ " "IFS РАФ" "уж4+(ЕКА%="Щ ") x5) 
1570 IF VaL(DD ま (XaY))=NQ AND БА%(Х,Ү)<>"Ж"ТНЕМ COLORO» 2: CURSORXX24 YX*X2-1: PRINTFES 
(NA? : COLOR? a O: GÜSUBZ2240: GOSUBZO10: IF CF :CG-1 THEN GÜSUBZOZO:GOÜTOI63OELSEGOTOI190 
1580 GOStEZ2260: PRINTCHR$ (21) : CURGORZ64, S: PRINTNET b --- 1" 280SUE2220: MUSIC"-G7":(G 
2701190 
1590 REM ----- GIVE ШЕ --------- 
1600 COLOR6.3:FORIi1:z1TOMX:FORIZ-z1TOMX: IFDA$Ii.IZ)0z2"X"THEN CURSORIiX24.IZX2-1:FPR 
INTERES (МА (DD$ (11, I2))); 
1610 NEXTI2,I1 
1620 MUSICFHS (1) 
1630 COLOR7.O: CURSOR10, O: PRINT" TRY AGAIN (Y/ND)"::FA$-INEEYS$(GCIO: IF FA$="N"TH 
ENCONSOLE: CLS: END ELSEIFFAS$-z"Y"THEN RUN 
1640 GOTO 1630 
1650 REM ----- DATA DISPLAY  ------- 
1660 FORIi1zOTO12:FD$(Ol1)-zSCRN$(024.119-6416):2NEXTI1: CONSOLE14244244.16:CL.S 
1670 PRINT "mmrt^z CHARACTER":PRINT" N ?(GRAPH":s:PRINTCHR$(OS2): INPUT"  x- ai)" 
„РАФ: PRINTCHRS$ (21) 
1680 ҒОКІ1-1ТОММ:МІзІМӘӨТЕ(рЕ%(11).ҒАа%):ІЕМІ2О THEN FRINTUSING"iSZ4J4S":II::PRINTDES( 
I1) 
1690 NEXTI1:PRINT"RMHIT АМҮ KEY":PRINT" TO RETURN"; 
1700 FA$=INKEY$ (1) 
1710 CONSOLE1, 24, 24, 16: CLS: PRINT"EREBII":SEORTIIZOTOI2?:PRINTE SSINEXT:GOTO1160 
1720 IFNC=4THENNC= 1: FAB=MID# (ЕСФ (1) МО, 1) r mh КЕМЕЛ 
1750 IFNC=3THENNC=2: FA$=MIDE (FCS C2) ND, 1) 
1740 RETURN 
1750 REM ーーーーーー INITIAL-1 --------- 
1760 ЕСФ(1) モリ アイ ウロ エキ ナニ 写本 リョ ドロ 生 ( 人 の) = リカ キ ウ テ コリ ヒビ ブフ へ ホリ ミド FC あま ( 衣 ) = リサ ロイ ドリ マミ ム メモ" ЕСФ(А) リタ キリ キト ラリ 
мо" FE$="\, |" 
1770 e Ne eri aE MN pt DK AA pa AE ату, E М":ЕВ%(2 
C e IDEE Or ERDO оге NEA md 

Гі-5Т010: FDRTS=1TDSEREADND (12 QId):NEXTIT: о. -( i E 
11) ) X2-NOCZ 5511): МЕХТІ1: RETURN TIR FREE NO ERE 
1790 DATA 5,1,0 MATRIXzixi / y^. 
1800 DATA 3.2.0 > MATRIX-Z4X4 / +" -9 
1810 DATA 4.2.1 " MATRIXzSX5 / $'"-5 
1820 DATA 6.2.1 MATRIX=6k6 / F 
1850 DATA 7.3.2 
1840 рата 9.3.2 
1850 DATA 10.4.2 :" MATRIXz9X9 / 3 
1860 DATA 14.5.3 :* MATRIXz10X10 . 
1870 REM ーーーーーーー INITIAL-2 Leid 
1880 FOÜRI1-OTQ3:Ci(CIi)sNO(Gl1,MX): NEXTIi1: CG-NO(O,MX)D 
1890 FORI1=1TOMX: DD$ (O, Т1) =МІЮФ (FCS (1), I1, 1): DD$ (MX+1 , 11) =MID$ (ЕСФ (4), 11.1): DD ( 
11,0) -чМІр%(ЕСФ(2).11.1):рр%(11. МХ+1) =МІЮФ (ЕСФ COSI 1) :МЕХТІ1 
1900 CONSOLE1;.2 40.24: COLORO, 6: PRINT "[& ХИ зүү" 
1910 COLORO, S:FORIIZ2TOMXX2STEF2:FORIGZSTOMX*X2-1S9TEP2: CURSOR Il., I2:PRINT ЕВФ(ОҘ; 
:МЕХТІ2, Ii: COLOR, © 


PMATRIX-z7*X7 ^ + 

" MAIRIX-8X98 / Y"-9? 
T 
/ 


ЈА К< 
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1920 FORIiziTOMXs: CURSOR Os ILXZ*1: РКІМТОЮФ CI 14 0) : CURSOR MXX2t2 IIX2-1:FRINTDDS$CII1 


j,MX*1) :NEXTII | 

1950 FORIL1-1TOMX: CURSOR 11%2, 1: РКІМТОЮФ (O, 11) CURSOR II1X2.MXX24-3: PRINTDD$ (MX+1, I 
1): NEXTIi | 
1940 FORIi1z1TOS:FORIZZ1TOC1(CINT(CILI/29.5)) 


1950 XzINT(IGNDXMX-1): Yz INT (RNDXMX122 IF DDS (X,Y) < У" "ТНЕМ 1950 gm d 


I1) 

1960 NEXTI2.II1:RETURN 

1970 REM -------- POINT JUDGE ---- 

1980 NC-0:NDzO:FORIi-1TO4: NE=INSTR (FCS (I1) » FAH): IFNB>O AND NBEZMX-1 THEN NCzI1:ND 
=NE 

1990 МЕХТІ1: RETURN | 

2000 REM ーーーーー PAN = | 

2010 PRINTCHR$(21):CURSOR 26,3:PRINT"2U !!1":CFzCE-1:MUSICEHS$ (3) PAUSE10: DAS (X, Y 
PY wen 


2020 қарал EIS жалакы aispa ани Xó6$.C02(4)*20: PRINT USING" HH" 


Ca CCE (4)) БЕТМЕМ 

2030 КЕМ ------ ALL DISCOVER ----- 

2040 CLS:FT$-TIMES$:CURSOR S, S: РКІМТ"ҮОуУ HAYE FOUND QUT": CURSOR74« 653 PRINT"ALL. МІНЕ 
ORS" ) 

2050 CURSOR 10,.8:FRINT "YOUR FOINTS ISz"iMXA42X35-— C1(0)XX-NN 

2060 CURSOR 104 9?:FPFRINT "YOUR TIME IS  z"sFT$:MUSICFHS$:(2) 

2070 CURSOR 7.11:РКІМТ" сизмиясы"аз yh (ҮМ) "i РАФ=ІМКЕҮФ (1): ТЕ FA$="N"TH 


EN1630 


2080 ІЕҒАФ<>"Ү"ТНЕМ2070 

2090 REM — PRINTER ---------- 

2100 PRINT "HEI" +СНЕФ (22): INPUT"TT2/ TIIN "3ЕӨФ%(1) 

2110 PRINTCHR$ (21): ІМРОТ "жати bx" 5 (RL0)":FG$(02) 

2120 INFUT" キ ョ ウノ ヒス "ケー (9%) "FFG СЗ 

2130 INPUT"*a?; ЕЛ”? (E )"SFGS(A) 

2140 MODETL:LPRINT" ЖЖ Kavar an жж" 

2150 LPRINTFGS (Ds: MODETN:LPRINT" F" 2" 

2160 LFRINTTAB( さ ) "PIIN r35- 7л 5"-A4(U8 MXS X"SMXS "од ATF" 

2170 LPRINTTAB(&) "POINTSz" $ MX *2X5- C1 (O) * さ ーNN5 " ТІМЕ=" ЕТФ 

2180 LFRINT" z"a7t/ BARF" CiO рул" E mn Фуу a " 

2190 LPRINTTAB(3)"swT V^ тла Э 92 エ 、 コ コー kadua) 49522." | 

2200 LPRINT:LPRINTTAB(GLO)sFGS (22 5 "E"; FGS CE) $ " A" FGS (40 5 " B':SPCCIO) SFGS C) 2SKIP: 
GÜTO1630 

2210 REM ---- DATA DISP-1 -------- 

2220 NN=NN+1: NM=NM+ 1 : DE $ (NN) = ЕФ: IFNM?24THENCONSOLE7 s 12, 24, 16: CL S: NM 1 

2250 CURSOR (-(NM»12)X&*24), (NM MOÜD13)*6- (NM212)3 PRINTUSING"dHHE" S NN: EPRTNT DES 
2240 CONSOLE: RETURN 

2250 REM ーーーーーーーーーーーーーーーーーーーーーーーーーーーー 

2260 FORI1=1TO4: CURSOR24« I1: PRINTSTRINGS (14, " ")8:NEXT: RETURN 

2270 REM ------- DEMO SUB. ------- 

2280 COLOR6.O:PRINT"DEESGLAN ü ШЕ ME. Nh. NES ШЖ. M, ^C HRS (193) "MO NUSCHRS 
(2139; 

2290 COLOR6,.O:PRINT" wS HH HE E E E ME HE HE И ú ú ú w. а ШШ Wm ШШ” mG m 
ШШ" ШШШН > ш ús ана А." 

2300 PRINT"EM ШЕНІ НІ UANI ниши GU E NEN ü k Nb. WP иь. ий 
Wo СНК (193) + Щ"+СНЕ%(21); 

2310 COLDR4,O:PRINTTAB(7)">> U ER. 1.0 B Y Е.К OJIMA << " 

2320 СО.0К7, О: РКІМТТАВ (3) "BBC »7z / TAZ MTS A“ カク サレ テー イ コス" 

2330 РКІМТТАВ (9) "ИЖ j= ハーフ "リリ ホウ ソ グ ト " Mapu? FF РЕТИ" 

2340 PRINTTAB(S) "Вж 29%; Шо キ ュ ウ シュ ウシ マス" 

2350 РКІМТТАВ (5) "ШВЕЕМ 7 wupu?" 

2360 РКІМТТАВ (9) "BE" FENN um h テキ" ワル "ET pu цаз." 

2370 РКІМТТАВ (5) "Birra" Z PYN va? アテ テテ クタ "サイ 

2380 RETURN 

2390 RESUME 1160 
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迷路 に つい て 


NEW MAZE と いっ て も を れ は と 
大 げ る な も の で は な く 〈《、10※X10 の 碁盤 
目 状 の 迷路 で す 。 な ぜ っ て 、 あ まり 大 
げき な 迷路 だ と 、 迷 路 作 成 に 時 間 が 、 
か か りす ぎ て イラ イラ きせ られ て し ま 
うか ら で す 。 


遊び 方 (ゲー ム の スタ ー ト ) 


タイ トル 表示 後 、 門 キー を お す と 、 数 
秒 で 、 迷 路 を 作成 し て くれ て 、READY 
GO / の 合図 で 、GAME 開 始 で す 。 

ます 左端 に 立っ て いる 人 を [の キー 
て 迷路 内 に 入れ ます 。 進行 する に つれ 
て 、 迷 路 が 次 々 と 開い て いき ます が 、 
行き 止ま り に な っ た だ た ら 、 後 退 す る か 、 
別 な 方 向 を 探 き な けれ ば な り ま せん 。 


猛 犬 と 宝 の ツボ が 出現 


。1 ラ ウン ド 目 で は 、 迷 路 の 途中 に 、 
猛 犬 た 、 宝 の ツボ が 出現 し て 、 犬 に ほ 
えら れる と 、50 ポ イン トマ イナ ス さ れ 
だ うえ ぇ に 、 2 秒間 身動き が で き な く な 


オー バー、 


MZ-2000( カ ラーBASIC) 


危険 を さけ な が ら 早く 
迷路 を くぐり ぬけ る の だ 。 


ら の でも まい まず す 。 : 犬 補 る け で 通る こも 
も で きる けど 、 出 日 に た どり 着く た め 
に は 、 さ けら れ な い 場 合 も あり ます 。 
まだ 、 宝 の ツボ に あり つく 〈 と 、50 ポ イ 
の ジラ ベス です 

ウロ ウロ 迷路 の 中 を 歩く うち に 、 右 
端 の どこ か に 、 ゴ ー ル が 現れ ます 。 あ 
ー や っ と 出 ら れ た だ た./ と 、 迷 路 の 脱出 に 
成功 する と 、 タ イム と ポイ ント が 表示 
され て 、 持 ち 点 が マイ ナス だ と ゲー ム 
プラ ス だ っ た だ ら 次 の ラウ ン 
ド に 進む こと が で きま す 。 

持ち 点 は 、 初 め 500 ポイ ント が 与え 
оқы ラウ ンド ご と に 、 ロス タイ ム や 
ボー ナス 点 で 、 プ ラス 、 マ イナ ス さ れ 
ます 。 あか お に 
, 3 ラウ ンド 目 か ら は 、 こ わい 流 鬼 と 
魔法 の ラン プ が 待っ て いる ヅ 。 

は だ し て 、 何 ラウ ンド まで いけ る か 
な ? 
園 参考 文献 NHK「 マ イコ ン 入 門 」 
57 年 度 前 期 

分 類 迷路 ゲー ム 
言語 カラ ーBASIC 


for MZ-2000 НААМА а ASS 


Copati aht bu EOGMHLUT. 1 


一 変数 表 ( 主 な も の だ け ) 


AO. Y) 迷路 の 配列 
B(X, Y) 壁 の 配列 

C(1) 壁 の 方 向 

H$ 人 の パタ ー ン 
0% O 
0$ &oxs—v 
P$ 宝 の パタ ー ン 
Q$ 灯 の パタ ー ン 
RO ラウ ンド 

PO ポイ ント 

CL カラ ー 番 号 
DO 犬 の ポイ ント 
BO 宝 の ポイ ント 
UO BOHAI h 
00 灯 の ポイ ント 


作者 の プロ フィ ー ル 


地方 誌 な ど に 原稿 を 書い て いる フリ 
ー ラ イタ ダー。32 歳 。 大 学 で 原子 物理 学 
を 専攻 。 つ まり 、10 年 こら い 前 か ら コ 
ピュ ユ コー タツ と の つき 人 るい は あっ た グズ 
型 に は あま の 興味 ガ が わか な か っ だ 。 マ 
イコ ン は 簡単 に 使え る の で いい で すね 。 
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90 REM "m m 
100 CONSOLECAO, SO. 24, GN: ССО ОКА 7. 1: COLOR, 07, WO 
110 DIM A(C11.11)  B(11, 11) C (15) 
120 FOÜRISITOIS:READ ССІ): NEXT 
130 DATA 1l,.lí.l (2 1 2 2 3 l 2 2 3.2.5. 
140 DEF ENL(J)=INT(J/4) 
150 DEF ЕМА) zJ-INTCI/4)X4 
160 DEF ENWOGD -J-INTGI/Z) X2 
170 HOS-STRINGS(CCHRS$ (CO), 8) 
180 H$=ÜHR$ (56) +СНЕФ СВА) +СНЕФ CAO) «СНК%(57) *CHR C255) +СНКФ (56) +СНКФ (40) CHR (198 
) 
190 D$sCHR$(COGLA5) +СНЕФ (113) HCHR$ (209) +СНЕФ (6B) +СНЕФ (127) +СНЕФ (31) € CHR C17) +СНКФ ( 
119) | 
200 ОФ=СНЕФ 129) +СНЕФ (66) +СНЕФ (126) +СНЕФ CLE) +СНЕФ C255) +СНЕФ CLOZ) +CHR$ CLOZ) +EHR 
s C60) | 
210 P$=CHR9 (255) +ÜHR$ (195) +СНКФ (231) +СНЕФ (129) +CHRS (129) +СНЕФ C129) *CHR$ (195) +EH 
КФ CS) 
220 OS-CHRS(CG 49) +СНЕФ (94) +СНЕФ (C60) +СНЕФ (213) キ EHR 生 (190) +СНЕФ C92) +EHRS C62) EHRE (i 
555 
230 GÜSUB 1980 
240 RO=1 : FO= S500: CL.=7 TEMPOS 
250 DÜOzO:EOzO:lQ0-OotO0sO:CLeCL-1:s IFCLe3 THEN CL=7 
260 GRAFH C7:PRINTCHRS$ CA) $ 2 CCOLORCL « 1 
270 PRINT" 25 NEW-MAZE >>" 
280 CURSORZ3.3: PRINT"Round Мо. Ó š RO 
290 CURSOÜR23,S5:PRINT"£4Y 2 WAIT!" 
500 GÜSUB 1040 
310 FORISiTO 
320 CURSDRZS.S:PRINT"EmME: I |": БОБОВ 2570 
330 CURSÜRZS.S:PRINT"READY GO !":GÜSUB 2570 
340 MEXT 
350 X=1:Y=Y0:TI$=" 000000" 
360 GET К®%:ТЕ К®="" THEN 360 
370 IF k$z»"6" THEN MUSIC'-EI":GOTO 360 
380 CURSÜORO, YOX2: PRINT" POSITION Os16X*YO: PATTERNE 71-48, НОФ 
390 GOSUE 800 
400 БОБОВ 940 
410 GET K$:IF К%="" THEN 410 
420 L=ASC (KH) -48 
430 IF L£*INT(G./2)X2 THEN 460 
440 IF(L<2)+(L>8) THEN 460 
450 ON L/2 GOTO 470» S10, 550». 600 
460 MUSIC"*E1":GOTOU 400 
470 IF ENW(B(X,Y))=O THEN 460 
4go GÜSUB 920 
490 YsY-1:GÜ0SUB 800 
500 БОТО 400 
510 IF B(X-1sY)<2 THEN 460 
520 GÜSUB 920 
530 XeX-1:G08UB ВОО 
540 GOTO 400 
550 IF Б(Х.Ү)<2 THEN 460 
560 GÜSUB 920 
570 XzX-1:GO0SUB BOO | ACONEW MAZE の TITLE 画 面 。 
580 IF Х<=10 THEN 400 
aoo GOTO 640 
600 IF FNW(B(X:Y-1))=O THEN 460 
&io GÜSUB 920 
620 Ү=ү-1: 60808 800 
&30 БОТО 400 
640 REM «ESCAPE- 
650 CURSORZS3.S:PRINT"ESCAPE QUT !" 
660 CURSORZS.B:PRINT" TIME " 
670 CURSORZS,9:PRINT MIDSOTI$ Ts 2)š "ša RIGHT$*(TI$, 2) 
680 PD=F ロ ー(VQL (MID$(TI$,3,2))*60+VAL (RIGHTS CT Is, 2) ) ) S-DO-*BO-UC-H GO 100 
690 CURSOÜRZS.12:PRINT" POINT d 
700 CURSOR2S,.13:PRINT РО 
710 GÜSUB 2550 
720 IF FOO THEN 780 
730 CURSORZ3.Z1:PRINT"TRY NEXT? (Y/ND" 
740 GET ЕФ 
750 IF k$="Y" THEN RO=RO+1: GOTO 250 
760 IF К%="М" THEN 790 
770 GOTO 740 
780 CURSORZ3.Z1:PRINT"GAME OVER !" 
790 END 
800 REM «SELECT 
810 GePOINT(LAXX-8. 16ЖҮ) 
820 IF Gz5 THEN GOSUB 2470:FORTzOTOISO00: NEXT: DÜsDO-*50 
930 IF Ge4 THEN БООВ 2490: В0=В0+50 


"> 


B40 IF Ge3 THEN GOSUE 750: 005200 
B60 POSITIONIGXX-G8.16XY:PCAaTTERNEGI-B.HOS 
goo POSITION 16XX-8s16XYtfPATTERNET2I-3,.H$ 
2910 RETURN 
920 POSITION ХХ.ҮҮ:РАТТЕНМІ 71-8.НО% 
930 RETURN 
940 REM MAZE DISP 
950. IF B(X-1,Y)<2 THEN 970 
960 CURSOR ZXX-z.2xYspRINT" " 
970 IF FNMCBCX。Yー1) ) = THEN 990 
980 CURSOR ZXX-1.2XxY-1:PRINT" " 
990 IF EFNWOBOX4 YO)zO THEN 1010 
1000 CURSOR ZXX-i.2X*Y-1:bPRINT?" " 
1010 IF BCXaY)E THEN 1050 
1020 CURSOR ZXX.2XYtPRINT" " 
10350 RETURN 
1040 REM MAZE MAKES 
1050 FORXsITOIO 
1060 FORYm1TD1G 
1070 A(X, Y) =O: BCX, Y) =0 | 4A② 出 口 を めざし て 進め / 
1080 NEXT Y,X 
1090 FORX=1 TOLD 
ETOC ч 1) = 640 12-63 
1110 SACKS TOV = (Хх, 100 —1 
1120 NEXT 
1150 FORYm1TO1G 
1140 AAs Vaal, YO-2 
1150 А(10,Ү)хА(10.Ұ)-А 
1160 МЕХТ 
1170 CURSÜORO, | 
1180 FRINT' 
1190 FORIsi1TOS 
COO TRENT е a sa Vs 
FEE INT "HEEL rb rH T4] 44-88 
NEXT | 
PRINT: 
PRINT’ 
YO= INT ERND C1) X10) +1 
Хші:ҮшҮб:; Z=0 
1270 CURSORO, ҮОЖ PRINT" " 
1280 FOSITIONO, YOX16:PATTERNE7J-8. НФ 
1290 ТЕКО =) THEN Кез 
13500 IFCROS E) ¥ (ROSA) THEN Кі) 
1510 IF (RO>=6) THEN К=10 
320 FORI=1TOE 
1550 X2mINTORNDOLL X9) ә Y2s INT CRND C1) X10) +1 
1340 IF FOINT(CLIÓXXZ2-B8.16XY2)5»0 THEN 1330 
1350 FOSITIONi16XXZ2-8.16XYZ2:PATTERNES-B.D$ 
1360 NEXT 
1370 IF(RO<=3) THEM К=4 
1380 IF(RO>2Z)£(ROZ6) THEN К=& 
1590 IF(RDX=6) THEN K=8 
1400 FORI= 1 TOE 
1410 XemTNTKRNDC1) X9) 22 Y-INTORNDCLO X10) +1 
1420 IF POINT(LIOóXXZ-8.16XY23)£22O0 THEN 1410 
1430 PFOSITIONI6XXZ-B,.16XYZ3:fPAaTrTERNEZ41-8,P$ 
1450 NEXT 
1460 IF(ROZ2) THEN i580 
1470 IF(CGRO-2)X(OROZ6) THEN Kx 
1480 IFGROs-6) THEM Кеш 
1490 FORI-iTOE 
1500 ХА4чІМТ(ЕМО(1)Ж9) 422 YAzINTXRNDEOD X10) 1 
1510 IF POINT(CLAOXX4-8416XY4)2z-*0 THEN 1500 
1520 POSITION16XX4—-8,160XY4:PATTERNE 21-8, 0% 
1550 NEXT 
1540 XSSINTONDGOD X7) жа: YSSINTONNDOD X100 +1 
1550 IF POINT(GIGXX5-8.16XYZ5)z2»0 THEN 1540 
1560 FOSITIONI6XX5-8.16XYS:PATTERNLSJ-8.(0$ 
1580 ZzZ41 
1590 ACX Y) 50. ү) +16 
1600 AX. Y*10-Aà(OX. Y+1)—-8 
1610 А(Х-1.УҮ9-А(Х-1.Ұ»9-4 
1620 A(Ə(X+1, YA (KHL Y) — 
1630 ӨСХ»Ү-із-А(СХ.Ү-19-1 
1640 J=INT CRND C1) ECCX。Y) ) ) +1 
1650 EizFMUCACXS Y) t EEZSENVGCACX S Y) 
1660 ON К1+1 GOTO 1670. 1680. 1690. 1700 
1670 ОМ К2 GOTO 1890. 1810. 1830 
1680 QN К2+1 GOTO 1710. 18504. 1720. 1750 


4③ ゴ ー ル を 発見 / 


ЈА К< 


(i690 


1700 
1710 
1720 


UZGO 


ies 
2:7 "Ала È 
522 
1770 


4790 


1790 
1800 
1810 
1920 
18:30 


1840: 


1830 
18460 
1870 
1880 
1890 
1900 
L L OQ 


‚1929 


1930 
1940 
197950 
1960 
1970 
1980 
1990 
S000 


201 


2020 
гоо 
2040 
2000 
2060 
уле 
2080 
20960 
2100 
2110 


2%20- 


2130 


2140 


2150 
2160 


2170 


2180 
2190 


00 
2210 


ae 20 


<. dts 


pci 


2250 
2260 
2270 
22800 
2290 


2310 


ФЫЙ, S20 


2 28 4 Q 

Зо 
24650 
2470 


(490 


оо 
250 943 
2610 


DESC 


250 


Ж 5 id (e 


2550 


25660 


Же УА, 


2980 
2590 


2600 


ОМ K2-1 GOTO 1740. 
Ом Е2+1 БОТО 1770, 
ОМ J GOTO 1810. 
QM J GOTO 1810. 
ом J GOTO 1830, 
ом 1 БОТО 1810; 
ОМ 2 БОТО 1810. 
ом J GOTO 1850, 1870 
OM J БОТО 1810. 1830. 
ом 2 GUTO 19504. 1870 
ом 4 БОТО 1810. 1850» 
ом 2 ОТО 1830. 1ӨЗО» 


1830 
19850 
1850 
1830, 
1870 


BOO Y)=B(X, Y) +1 


YsY-i:GOÜTO 1580 
ВХ. Y)=B(X=l, YO e 
XeX-1:G0TO 1580 

ВХ, У) =В (Xs Y) *2 
XzX*1:GOTO 1580 

BO Y-1)8BON Y71) +l 
vev-i:rGOÜTO 1580 

IF 2-100 THEN 1950 
FÜRX«1TO10:FORYs1TOLO 
1F RC(XaY)SE THEN 1930 


1870, 
1780, 


17503 
1790. 
1350 
1870 
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ゲー ム の スタ ー ト - 
MZ-2000 ま た は MZ-2200 に カラ ー 
BASIC(MZ-1Z002) を ロー ド 後 、 ア 
タッ ク UFO の リス ト を 打ち こみ 、 
RUNICR| と する と 、 画 面 に “АТ- 
TACK ОЕО” と いう カラ フル で 美 し 
い タ イト ル が 表示 る れ ま す 。 つ づい て 
モ 、 説 明文 表示 に な り 、 す き な キ ー 
を お し て 、 ゲ ー ム 開始 で す が 、 


ゆっ くり と ペイ ン テ ィ ン グ き る れ ま す 。 
жов М 
自分 の タン ク を 左右 に 移動 きせ な が 
ら 降 り て くる 敵 の UFO を 破壊 し て い 
く と いう 、 い わ ゆ る イン ベー ダー タイ 
プ の シュ ー テ ィング ゲー ム で す 。 
UFO は 全部 て 5 種類 あり 、 そ れ ぞ れ 
点数 が 違い - M 中 に は ビー ム 砲 が 2 
度 命中 し な いと 破壊 で き な い も の も あ 
り ま す 。UFO が 下 に 降り て くる ほど 、 
点数 は 高く な り 、 ま だ た UFO が 3 回 自分 
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4A①DUFO0 の 種類 と ポイ ント が 表示 され る 。 
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MZ-2000,2200 (カラ ーBASIC) 


D Se 
高速 ピー ム 砲 で うち 落と せ / 。 


の タダ ング に あたっ て し まう と ゲー ム オ 
Meet 


5000 点 を 越え る と タン ク が 一 台 追 加 
され ます 。 S 
タイ トル が か っ こい いし 、 弾丸 の ス 
ビ ピード も か な り で す 。 

画面 展開 が な い の で 、 や や 単調 に 感 
じ る 人 も いる か も し れ ま せん が 、 こ れ 
か ら は 、 何 画面 も 出 て くる よう な ゲー 
ム に チャ レン ジ し て み だ た いで すわ ね 。 
分 類 アク ショ ン ゲ ー ム 
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操作 方 法 


タン ク の 移動 と ビー ム 砲 の 発射 は 、 
テン キー と スペ ー ス キー を 使い ます 。 
タン ク の 移動 : 1 (16-3) 
ビー LAGER. : [5]or|[ SPACE] 
園 参考 文献 
・「 マ イコ ン BASIC マガ ジン 」 
・「MZ-80B/2000 用 びっ くり 効果 音 シ 
ン セ サイ ザー」(61 一 62 ペ ー ジ ) 


АЗ E— 1380) 5583 / 


7] 


à 2 Nt (5.2365; 4 


残り の タン ク 


画 ア タッ ク UF 0O フ ロー チャ ー ト 


An 


1120--15704Т 


初期 設定 . 20—4017 当たっ た UFO 
の スコ ア 計 算 


キャ ラク タデ ー タ 読み こみ 910 一 1210 行 


デモ & 説明 590 一 740 行 


50— 13017 
2°) 


UFO 移 動 140-24041 数 表示 


YES . 
NO ж 


з O 


РГ GAME-OVER 
| Y or N 


— キー が お され て y» 
いな い 時 の 処理 
44011 


YES 


E) TYE 51017 


UFO ピ ビー ム 


& 
гп 
42) 


š 


Ж 
o 


ビー ム 処 理 


w 
© 
5. 
ji 


972713928) 


アタ ッ ク UFO プ ログ ラム リス ト 


10 REM ЖЖЖ 

СӘ 'BOSUB 1220 

50 DIM WET’ ai AG EWP] yama 

4o ТЕМЕШ М ОССЕ ОАЕ С е ЕВА А Е С Е -F-E-C4":MIPzc"M-AOFOG tA rre ra"sosupmesos: 


ӨО LINEETsUWOI464,.0.46441399:L INEL 1s WO1464. О, OSE a Oa & 385. O 058.199, 658.199. 4654. 1929 
?О LINEE 1』 WO] 
152, 1564144 152. 158, 168. 146, 1765. 154. 208. 162: LINEE 1«WO] 0.152,0,.184 
BO LTNEE is WOJ 11251844216, 159,256, 152. 288, 152., 296, 146. 320, 1852. 545. 155, 3684 151, 3 
оо, 147, 405,194, 416. 156. 425,199, 436. 155. 464, 152: INEL 1a МО G, 184, 454,184 
әб L INELL ia ОТДА, 159, 1723 12031. INEE 1» КОТО, 184504 129404 15294 464, 179 
зыр, 70, Вон. OQ: FAI 


110 FAINTE Sno] 40,16,41: РАТМТЕ У» WOI 45. 158. 18FAINTL 5, WO E40, 1835. 18FAINTE Зь WOJ10 
a 100, 1: "QINTES&WO0110s 19041 


72 


120 POSITIONS О, 8: РАТТЕВМЕ а» HO] -B.GC$:POSITI ANMAS G. 40: РАТТЕКМ 3» МОЛ —8, HSS: FOG I 
TIONZZIO. ДЕ PATTERNE 4, МОЛ “Ba, LEH 
150 PFOSITIONSZO.140:PATTERNM-—-B. STRINGS ¢ CHER (0) „82:60850 BS 20s PEESO S 2a O8 DEF КЕҮ(7) 
SPÜEKESyS2 166! РОКЕЗНӘЗ. ФЕОВРОКЕЗ Sb. $601 
ZERO MONI | uot За сымы inde ie nti vc ей acie E E RK AL Gtart ーーー 
130 XeINTORNDCIOXSZ)M1sYsitLoe ied CRND C1) X7) +i: IF 71... mé THE NI. 1 
eM ҮҮшУуҮж, ОС IFYY-1THENYYz12 Y:xx IBTORNDCIO X10) +s ЕТ=ЕТ+1# IFETGXFTHENMET:zoO: Үү, 45 
Yee YY шт}: CURSOR GO. zx: PRIN Е 
170 CURSORX a YS PRINT" UBOXSIXCKINTOXRNDAUIOX4)-12 YzY-YY 
180, IFXZATHENXzX-.82 [E X< Ме А Ku 
190 ІЕХ>А THENXsX-.8: IEX2SZTHENXz 
COO XcINTCX)CURSORX.Ys PRINT s|.) s IFE X1 THEMMUSIC'"-GO":FEORIsY-TU225 CURSORX- 1 
«ІЗРКІМТТІГР CURGORX*1sTISPRINT" “NEXT: ТЕС Хада) KLINT у= 22) THENSzg-10 
хіб IFSICOTHENCURSOR?-LENGCSTRSEU) › E PRINTS 
z < о IFSZ-OTHENSzoO 
SO IF (X=ñ+2)(INT(Y):= 4%) )+( (X+1=0+2) X CINT(Y)=22) )+( (Хара) KCINT ( Y yz 22) y THEN 
MUSIC M$:kmk-1:POSITIONSS,.)99:sPAarTERN-8. ӘР: MUSIC "R Fua HOSUR SO: EEREZOTHENA2ZO 
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1090 QC) zCHRSBGOBZEO--CHES OBUS) +Ü HF ($C D CHE ($O) CHES (ФОН) +СНЕФ (HI SO) СНК (BAO 
э +СНКФЕФЕР 

1100 0%6%4) =CHES (7E) +СНЕФ (OBOE) FCHRS$ ОӘО CHR PIED LHR BOR) CHI $Ü) +ÜHR ($Ü 
VEGHRE С®7Е) 

1110 SC$sSt-C*-O0$-RPHES.:BSSsHeelgeBse-sos:LEgSsL SES $T T$: T$ COS$-SP$-GUS-t SEEME 
qoePe-e39$e3P$:lUFdsaPSs-S39-3P$-3449-3P $09 | 

1i20 Ap$zccUOse-SsUs-mnüs--Gaog-e-Grqs-55$-3445-0$ 

1150 ThNS-CHESCCBCO)4CHES Cba10-FCHE (BAS) КОНФ (BOE) HCHERB CBEEO ACHRE (BEF CHR (H7) + 
CHRE $3) | | 
1140 ТмжчімМФСНЕФ(Ф?Е) HCHES (BEF HSTRINGSCOCHRS (B18) «30 ACHRE EEEO ACHRE i 7E MÜCHRS ( 
$5) | 


1150 TNS$zTNS-CHESUSQX) CHR$BBGZ) CHRIS ( BER) CHES E76) HCHR$OS7E)-HCHRS (BEF) ACHRES C$ 
REG ACHRE CHICO 

1160 PES EHRE ($06) +CHR$ ($09) EHRE $17) HCHRSS ( $2F) +CHR9$ (SFE) +СНЕФ ( $EF) +CHR$% (6870) + 
СНЕЖ (BESA) 

1170 TCS$zTCS--CHRS$(S7E)--STIINGSOCHERSOSEED X) ACHRE PLE ACHRE EEE ACHRE E7E HCHRS ( 
$30) 

1180 TOCS-TCS-CHBESC$60)--CHERSEOSGO)-HCHRS (BEB) ACHRE СФЕ) HCHRSE O($7E0-HCHRS BEF) СНЕЖ ($ 
ҖЕ) КОН CB10) 

1190 ЕМФ=5ТЕІМОФ {CHRE ($PEF) a 5) STRINGS ( CHES (BOO) 43) 2ESSSSTRINGSUCHRESOBEE) , 5) ASTR 
INGE (CHEB HOL) a X) 

1200 TN$=GF3$+TN$+SEFE $š ТОФ GF $+ TÜ $$+GE $ 

1210 RETURN 

1220 REM ーーーーーーーーーー Sh] を に ーーー 

1230 РЕІМТОНЕФ (6): CONSOLEGHsz COLOR, Q7 « WO 

1940 REM 4 ? # 

1250 L.INEL 2116.48. BO, 4B, BOs 64, 644. BO. 4B, BOs 645 64.04.50. AB. SGSLINEEZIXZ. 56+ 164 56s 
16s 48: LINELZJ1X2. 564 22, 80, 16s 964 524 964 A8, 80.48.56 

1260 LINEL2116496,2520,.192:L1INEL21324964.320,.192:LINEL 2148, BO, 3204 192 1 LINEE 21644 8 
Os 320, 192:L INELZ1144 S64 324 62: L INEEZ214834 56» 644 G4: L INELL 2J80, 644 354 72 

1270 LINE 2180, 48,105. 63:КЕМ # 7 #ILINECSI I2. 4B, 160s 4B, 160s 64s 12B, 964 11254 96413 
Qa 7894 1155694 1044804 964 72, 1123 56. 1124 48 

1280 11МЕЁЗҖЗ1120,64, 12868, 56, 144,56, 144,64, 156,74, 120,64 

1290 LINEES11124964,3204,192:LINEL431128,96,3204.192:LINEL31104,.8041214 88: LINEUSI12 
Ba Sós 142, OS 1 1МЕП 116064» 1764 7621 INECS12160. 48, 1764 64 

1500 REM # У # 

1310 ШІМЕГ 61176, 64, 192, 64, 192 BOs 176, 80,176. 64: L INEE 61200, 64, 2164644 2164 BO, 200, 
So. 200,54 

1320 LINEL 61224, 64, 240.64. 240. 80, 2164 9654 200,96, 2244 004 224564 

(X30 LINE GIRDO, 96, SAO, 192:L INEL 6121639643204 192: L INELA1176s 80, 3204 1 92: LINEE 611 
ооо, 20б Pr LINELL 1200, ВО, 209, 90:LINEL61216480, 219, BA 

1540 LINELAJ24O0. GO. 204 192: L INEL 611925644 2004 7Z2:L INEL 51216564, 224. TALLINE él 24O 
$64. 520,192 

1350 REM 4 7 # 

1360 LINEC 71272, 48, 390.48. 520.64, AEB, 96, 272,96. 504.04.204, 56, 288. S64 264, BO. 256, 
282270455) 272, A48 

1570 LINEL?71256* 72:320. 192: LINEL 71264» BO, 320, 192: LLINEE7 1288.96. 320,192 SLINEE712 
84.864 294, ХІ INEL7 X208 644 3204 192 | 

1380 REM # 一 # 

1590 LINEL 412256, 72,584, 72, 284, BO. Бо, BO, 226, 72 | 

1400 LINEL41336, 72, 3205.1 192:L INEE 41336 ЕО, X204 192: L INEE 413844 30,3204 192 

1410 КЕМ 8 oU 


Pas 416.5 TR 400, 88, 4 Ms 48. 

14350 LINEL 1. 400,48» 385, ZGSL INEL 114004,G885.3204192:LINEL11416.964 3520.19 2:LINEL 1144 
8.76. 320,192 INEL1 1424, ga. 520.192 

1440 LNEC ITAGE., 480.417.982 

1450 REM # F t 

1460 LINELSJI4G80.485. 544.48. 544, 56, 496, 56.496. 72. 36s 724 Ss Во, 496, BO, 4964 964 480, 
Зон 480. 49 

1470 LINEL 51480, 48, 46%, 62: LINEESI4G80. FO, TAO, 192: LINELSI496, 964. 3204 192: L INEE 575 
аз ВО. 520,192:L INEE 2194434955. 16471 

14680 REM # Ü # 

1490 LINEL?7125764» 48,608. 48. 024. 3646244 BB, 608.96. 5764 964 S60, BB. S60. 56, 5764 48 

1300 L.INEL 71584, 6а O00, 965608356525. 508,80. 6004,38, 584, 99, S764 GO&'5 76» ай». 24. 36 

1510 L 2 NEL 213560, 564 SSA 71 8SLINEL71S604. BB, 320. 192: LINELE715764 964, 320, 19251 IMEE 7160 
P 263 2 か 192 

1520 L INE 2 а SDa боз 97?» OB: LINE 71608, 64, 3576s ZG3LINEL71608,. BO. 588, BB 

15350 ЛИТЕ A айне. 494.23 PAINTUSsMWOI136s. 49.5: РАТМТЕ 6, МОЛІНД, OB: 5: FAINTE оь WO 208, 
ea n FARINTELGOsWOlJ232s6946 

1540 FALINTE, КТЕ 296, 49, d. РАТЫТІ4, МО01560, 735.45 P"AINTUTsWOTAOB. 49, 12 PAINTESS WO1512 
$494.55 PAINTET.MWOJ592, 49,7 ri 

12330 TEMPO?s:MUSIC"ROeR"SFEORIsITUZO 

1560- MUSBIC"RO": am АРНОО: MUSIDCU"CO" КАРНО: MUSIC" HCO": GRAFHOZ: MUS IC" DO" ӨКАРНОЗ:М 
USIC"# DO": GRAFPHOTI2: MUSIC "EO": GRAOPHOT3:MUSIC"UFO"s:GRAPHOZZs:MUSIQC"GGO":GIROEPHO13 

1320 МЕХТ:ОКӘРНС>  КЕТШЕМ 

1580 REM ЖЖЖ T7"? ПЕП GAME Жжж 

13590 КЕМ ЖЖЖ 1983/8/15 ЖЖ 

1600 REM ЖЖЖ MaàTsUsaka Q. Zk Ж 

1510 REM ЖЖЖ COLOR. BASIC ЖЖЖ 

15020 КЕМ жж MZ-2200 cor MZ-—2000 Ж 
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O O- ее есте 


いわ ゆる ゴル フシ ミュ レー ショ ン ゲ 


ー ム で 、 18 ホ ー ル を 72 で まわ れ ば イー 
. プン パー。 市 販 ソ フト で も ゴル フシ ミ 
ュ レ ーション ゲー ム は 、 か な り の 種類 
が 出 ま わっ て いる の で 、 あ り ふ れ て い 
る と 思う 人 も いる か も し れ な い 。 
し か し 、 こ の 「LET'S GOLF」 は 、 
他 の ゲー ム に は 見 られ な い 特徴 が ある 
E 自信 を 持っ て いえ る 。 それ は コー 
ス 設計 が まっ た く 〈 く 奇抜 な が こと 。 な か に 
は 現実 的 に あり を そう な コー ス も 2、3 
ある が 、 は ほとんど は 現実 ば な れ を し た だ 


奇抜 な ュー スグ ラフ ィ ッ クス を 楽し 
みな が ら 6 デレ イ て きる と いっ だ 、 こ れ 
まで に な い 新 し い タ イプ の ゴル フシ ミ 
ュ レ ーション ゲー ム だ と 自画 自賛 し て 
いる 。 友達 の な か に は 、 ゲ ー ム そっ ち 
の け で コー ス 見 た る に 先 に 進む び 人 も い 
る くら い が だ が 。 


LET'S 


AD さて 、 ど ん な ゲー ム か な ? 


76 


シン グル プレ イヤ ー も 


夢 じ ゃ な い ゾ // 


LET'S GOLF 


プレ イヤ ー は まず コー ス の 決定 を し 


な けれ ば な り ま せん 。 画面 に 現れ る 円 


形 の コー ス 設 定 表 示 の 赤い バー が 、 あ 
な だ た の ショ ッ ト コ ユ コース に な り ま す 。 こ 
の 赤い バー を 左右 に 動か し て 、 自 分 が 
ショ ッ ト し た い コ ユ コース を 設定 し ます 。 
この バー を 動か す キ ー は 、| Cri 0 
5^), [2] Cell (#10). [5] бз 
回 り に 約 10)、[6] (大 回 9 り に 約 5) で 、 
[ZI で 固定 し ます (テン キー で は 動き ま 
せん )。 

次 は ドラ イ バ ー の 選択 で す 。 こ れ は 
ファ ンク ショ ン キ ー を 使い ます 。 [F1] 
は ウッ ド (1-5) 、[EF・2Z| は アイ アン 
(2-9) 、IF・3| は ピッ チン グ ウ ェ ッ 
ジ 、 [FEF・4| は サン ドウ ェ ッ ジ 、 上 F・5 | が パ 
ター て す 。 Жы, УУКЕТЛАТХЕ 
内 し て は ドラ イ バ ー ナ ン バ パー を 数 字 キ 
ー を お し て 選択 し ます 。 

ドラ イ バ ー の 選択 が 終わ る と 、 シ ョ 
ッ ト の 強弱 の 設定 て す 。 こ れ は 1 一 5 
の 間 で 選択 する こと が で きま す 。 これ 
b 数 字 キ ー を お し て 決定 し ます 。 

操作 方 法 は これ で すべ て で す 。 あ と 


Teo SHOT 
FAIRWAY GREEN 


ADE | 打 フ ェ ア ウ ェ イ を キー プ / 


. 
DOO 
DOO 
вее 
... 

е 


OO 5,555,555 05,5650 5656567690555 55 4495954957 o o o s o o o o o o o o o o o o o o e JÛ) 


e... 0 6 € 0 0 € 9 * 9 6 B 9 6 9 b 9 O 9 9 9 о о 
* e s 0.0 O0 € € 9 O 0 O 9 0 à O 0 9 à O 0 O 6 оо 

€ e e a 0 0 0 e € 9 € 9 0 0 0 O . 06 9 O 9 O 0 ое 
е € » e 0 O 0 9 Ó € 0 à O 0 O € 0 6 о ео 

e 9» e e e 9 0 a 4 e . 9 . RO 4 9 8 € 0 9 9 6 0 о 
...амтаеееееееееее 

eee е ө е 
ee е ө ө ө 
эө ө ө ө 


DOC 
өө ө өө 
* өө өө ө ө 
өө ө ө ө ө о 
DODOOOC 
жи у 
eo ө ө ө ө ө ө о 
QD DO 


DOO 
DOOOD 


D 
ж) 
ees 
OO 
DOCU 


е 
е... 
OQOOOOOOOO00 
-ееееетееее 
000000000000 
e e өөө 0 0 өө 0 6 9 9 9 
жеееееесеееееееее 

0000 
QOOOC 

e ee ө өе өөө ө өе е е ө өө 2c0e€0000 m уи ә ^,^ е 
OOOOOOOOOOOOO OU . ки ИК», Жееесе 


DO 
DOC 
ete o 0*0* 57 * 9 o ,*,**,*,*,*,*,*,*,*,*,* 9*9. гө ө o ө е ө ө ө ө ө ө ө ө ө ө ө ө ө ө ә 


は プレ イヤ ー の ユース の せめ 方 、 ま た 
ドラ イ バ ー 選 択 な ど 『 で 、 ス コア ー に 大 


жаз, 


コー ス は カラ ー グ ラフ ィ ッ ク て 区 分 
る れ て いま す 。 


乏 … ダ ェ エアウェイ ・ グ リー ン 
) - => 
回 パン カー 
青 …… 池 
水色 …O.B. 
分 類 シミ ュ レ ーション 


言語 N88-BASIC 


当年 と つて 19 歳 。 富山 大 学 の 理学 部 
2 年 で す 。 マ イコ ン は 大 学 に 入学 し た 
と きま に 買っ つて も らい まし だ 。 この ゾー 
Ga UL Ug dle m uoc 
©, ЗО 2 38IC [3:80 C EEL 
えな いよ うな コー スガ 登場 し た り し て 、 
その 点 が 友達 こび グ に フケ て いる み だ い 


Cd. 現在 、 機 械 語 を マス ター 中 で す 。 


No, 2 MALE 
2278 Par 3 


3rd shot 
putter 
337 AU? 
nd SHOT 
FAIRWAT-GREEN 


4A③ ワ ン オ ン を ね ら え る ゾ 。 


A 3 番 ホ ー ル 。 飛行 場 み た い だ ね 。 A 8 番 ホ ー ル 。 こ れ は な ん だ ろう ? 


PB 


©< O + OX ÜQ) = Q) N н 


LET'S GBDLF ブ プロ グラ ムリ スト | 


| 


REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx 
REM 3M) XX Xx XX XXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxx 
REM xxxx жж 
REM xxxx GOL TF GAME зе зе 
REM xxxx by H.Takahashi xxxx 
REM xxxx 83 12, ,8-= 88,141 жжжж 
REM xxxx x X X x< 
REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx 
REM НКИ ИЯ КЕК КЕК МИ EN Аай ды Жей нй US 
DATA ^i m 

DATA ` E шз кш п А” 

DATA ` в т к FE «"- 

DATA ` B E d E ER C 

DATA ` в a g k Ш” 
DATA ` ЕЕ ЕЕ E чин” C 


FOR 1=0 TO 7?:COLORZ(CI,IO:NEXT I:CONSOLE 0,25,0,1:UIDTH 80,20: SCREEN 0,0 
RNZVAL(GMID$CTIMES,4,22)2x100*VALCRIGHTSCTIME$,22)2: RANDOMIZE RN 

WINDOW (0,02-(639,399D0:VIEU (0,02-(639,1992:COLOR 7,0,0,7:CLS З 

DIM ZZXC6012,PARC18D,LONGC18D,KIYORI(C292,ZAXC290,Z2AYC290),QXC10025,QYC 100) 
DIM КЕІ(18),ВАЅНІ( 29), ТОТА (18) 

KAKUDOZ0 : ROUNDz21 : ЕХТРА1=0 : ЕХТРА2=0 : 0=1 : ТОТА -0 

KEY 4,  *KEY.2;  tKEY 2," 1KEY 4,  SKEY S; 

RESTORE 24:ҒОР 1=1 TO 29:READ KIYORICIO:NEXT I 

DATA 50,50,30,0,0,0,0,0,0,0,250,230,210,190,170,0,0,0,0,0,0,200,180,160 
DATA 140,120,100,90,80 

RESTORE 27:FOR 1=1 TO 18:READ PAR(CIO,LONG(CIO:NEXT I 

DATA 4,408,3,227,4,394,4,313,4,385,5,640,4,308,4,404,5,551 

DATA. 3,218,4,418,4,410,4,407,5,523,4,467,3,254,3, 238,5, 605 

REM xxxxxxx タイ トル эээ 

RESTORE 10 

WIDTH 40,25:FOR I=1 TO 6:READ GORO$:LOCATE 5,1-*I:PRINT GORO$:NEXT I 
CIRCLE (100,200) ,50,4:СІРСІЕ (100,2002,15,4:PAINT (100,230),4 

FOR 1=1 TO 10:LINE (100,200-5*12-(150,200-5*12,0:NEXT I 

FOR 1=1 TO 20:LINE ‹153-І,200+6)- (153-1, 250) ,4:М№ЕХТ I 

FOR 1=1 ТО 20:1 ІМЕ (130, 200+6+1)- (170, 200+6+1),4:МЕХТ I 

CIRCLE (220,200) ,50,4:СІРСІЕ‹ 220, 200), 15,4:РАІМТ‹ 220, 230) , 4 

FOR 1=1 ТО 50:1 ІМЕ(270+1,150)-(270+1, 250), 4:МЕХТ І:РАІМТ‹ 220, 200 ),1,4 
FOR 1=1 ТО 40:LINE(319,210*I12-(370,210* 12,4:NEXT I 

FOR І-1 TO 451 ІМЕ(370-%1,150)-(370%1,250),4:МЕХТ I 

FOR 1=1 TO 25:LINE(409,150*12-(470,150* 12,4:NEXT І 

FOR І-40 TO 65:1МЕ (409, 150+1)- (470, 150+1),4:МЕХТ I 

CIRCLE (100,200), 69 ,5, 1 .5798,4 .71239 iCIRCLE (470,200), 60 ,5,4.71239, 6.28318 
CIRCLE (470, 200) ,60,5,0,1.5708;1 ІМЕ‹ 100,140) (470,140) ,5 

LINE (100,260) -(470, 260) ,5:ҒОВ 1=1 TO 3500; МЕХТ I:COLOR 0 

RESTORE 10:FOR 1=1 TO 6:READ GORO$:LOCATE 5,1+1 :РРІМТ GORO ま :NEXT I 
PAINT(1,12,5:COLOR 7:ҒОР I=1 ТО 3500:NEXT I:UIDTH 80,20:GOSUB 493 

СЕБ 1:17 D>13 THEN СОТО 49 

CLS 2:0N D. 6010. 51,66,717,92,105,123,138,158,176,193,211,227, 20 
DzD-13:CLS 2:0N D GOTO 258,275,288,315,330 

REM 999999999 1st Hole %%%%%%%% 

CIRCLE (110,70),45,4:РАІМТ (110,70),4:СІРСІЕ (125,702,4,3:PAINT (125, 79) 3 
RESTORE 53:POINT(100,10):FOR 1=1 TO 10:РЕАр S,T:LINE -5ТЕР(6,Т),5:МЕХТ I 
DATA 70,0,50,70,120,20,120,150,0,100,-100,0,-300,-210,-30,0,0,-120, 70, -10 
СІРСІЕ(410,180),50,5:РАІМТ(370,180),5:РА1ІМТ(450,180),5 
РОІМТ(440,3300 1 ІМЕ -5ТЕР(-30,00,4 1 ІМЕ -5ТЕР(0,-300,4:11МЕ -5ТЕР(30,0),4 
LINE -5ТЕР(0,30),4:РАІМТ (439,320) ,4:РОІМТ (390, 280): ІМЕ -5ТЕР(-70,02,4 


LINE -STEP(-299,-149),4:LINE -STEP(199,-39),4:LINE -STEP(S9 , 39 ) , 4 


LINE -STEP(C70,02,A:LINE -5ТЕР(С-10,502,4:11МЕ -5ТЕР(50,50),4 

LINE -5ТЕР(10,40),4:РАІМТ‹ 380,270) ,4:СІРСІЕ (240, 200) ,55,1,,,.З 
PAINT(239 , 299 ) , 1 :CIRCLE (190,85), 20, 7:РАІМТ (180,85), 7? :PAINT(1,1),5 
LINE (500,352-(600,85),0,BF:LOCATE 64,2:PRINT "Мо. 1 HOLE':LOCATE 64,3 ` 
PRINT '408m Par 4':CIRCLE(270,1202,30,7,, , . 31PAINT(260,110),? 
LnX=4:LOY=14 : GRX=39 : GRY=274 : CX=559 : CY=150 :STX=425 :5ТҮ=315 

GOTO 344 

REM ФФФФФФФ 2nd Hole %%%%%9%9 

СІРСІЕ‹ 180,270) ,35,5:СІРСІЕ (310,100), 70,5:СІВСІЕ (325,90),45,4 

PAINT (325,90),4:СІКСІЕ (330,100), 4,3 

РАІМТ‹ 330,100 ),3:РОІМТ( 195,285) 1 INE -STEP(-30,0),4 

LINE -STEP(0,-30),4:LINE -STEP(39,9),4:LINE -5ТЕР(0, 30) ,4:РАІМТ( 194, 282) , 4 
РОІМТ‹ 200,0) :RESTORE 71:ҒОР 1=1 TO 6:READ S,T:LINE -STEP(S,TO,S:NEXT I 
DATA -100,200,0,120,100,20,50,0,180,-100,30,-250:PAINT(205,1)2,1,5 | 
CIRCLE (2625 125), ix a PAINT (265, 125); 73 PAINT(1, 2002,5 


LINE (500,35)-(600,85),0,ВҒ:10САТЕ 64,2:PRINT "Мо. 2 HOLE':LOCATE 64,3 
PRINT "227m Par 3':CX2550:CY-2150:GRX-494:GRY-255:STX-180:STY-270 
(ОХ-62:10Ү-13:60Т0 344 

REM 9999999 3rd Hole %%%%%99% 

CIRCLE (500,300),95,5,,,.37:СІКСІЕ (530,300),45,4,,,.7:РАІМТ(530,300),4 
CIRCLE (513,280),4,3:РАІМТ(513,280),3:СІКСІЕ(460,280),25,1:РАІМТ(470,280),1 
CIRCLE (380,250),35,1,,,.9:РАІМТ(380,250),1:Р5ЕТ(410,300),4 


RESTORE 81:FO0R 1=1 TO 12:READ 51,52:1ІМЕ-5ТЕР(51,522,4:МЕХТ I 


DATA -50,20,-20,-70,-180,-10,-20,-90,-30,-10,-50,20,0,100,50,80,200,20,100 
DATA -10,15,-20,-15,-30,-30,0,0,-30,30,0,0,30,-70,-70,-230,60,-50,-170 
DATA -65,0,0,220,50,100,340,-20 
PAINT(419,319),4:POINT(199,199):FOR І-1 TO A:READ S1,S2:LINE -5ТЕР(61,52),4 
NEXT. І:РАІМТ(99,99),4:Р5ЕТ(470,2372,5:ҒОЕ 1=1 TO ?:READ 51,52 

LINE -5ТЕР(51,52),5:МЕХТ I:PAINT(1,12,5:LINE (500,352-(600,852,0,BF 
LOCATE 64,2:PRINT "Мо. 3 HOLE':LOCATE 64,3:PRINT '394m Par 4':CX-550:CY-150 
СІКСІ Е(Х450,320),20,7:РА1МТ(450,320),7:СІЕСІ Е(250,230),50,1,,,.1 
РАІМТ(250,2302,1:СІКСІ Е(150,335),50,1,,,.3З:РАІМТ(150,3352,1 
(ОХ-47:10Ү-1:б6ЕХ-374:6КҮ-19:5ТХ-85:5ТҮ-85:60Т70 344 

REM 9999999 41th Hole %%%%%%9 

CIRCLE (300,1505,60,4,,,.95:PAINTC300,150)0,4:CIRCLE (220,300),45,4 
РАІМТ(220,300),4:СІКСІЕ(220,300),53,5,1.7058,5.49779 

PSET (220%С05(5.197792ж53%9,300-51М(5.49779)ж53%1),5 

LINE -5ТЕР(130,-60),5:КЕ5ТОКЕ 97:ҒОЕ 1=1 TO ?:READ 51,52 

LINE -5ТЕР(651,52),5:МЕХТ Г:РАІМТХ(1,1),5:СІКСІЕ (360,130),25,1 

DATA 20,-140,-120,-130,-120,0,0,50,60,0,30,70,-46,121,0,30,30,0,0,-30,-30,0 
РАІМТ(360,1302,1:СІКСІЕ (220,315),4,3:РАІ1МТ(220,315),3:Р5ЕТ(175,182,4 

FOR 1=1 TO 4:READ S1,S2:LINE -5ТЕР(651,52),4:МЕХТ I:PAINT(180,20),4 

CIRCLE (300,2905,30,7,,,.22: PAINT( 300, 2902,7: І.ІМЕ(500, Cul ын (600, 852,0,ВҒ 
LOCATE 64,2:PRINT "Мо. 4 HOLE':LOCATE 64,3:PRINT 319m Par 4':CX- 550: СҮ=150 
СІЁСІЕ ‹ 230 , 230 ) , 20, 1:РАІМТ‹ 230, 230 ) , 1 

GRX-494: GRY- 255: LOX- 62:LOYz13:STX- 190: 5ТҮ-33:60Т0 344 

REM 9999999 5th Hole €999999 

CIRCLE ‹140ж%1.5, 200), 190,5; РАІМТ(1,1) ,5 

РОІМТ(275ж1.5,90%ж2) :1 ІМЕ -5ТЕР‹30,0),4:1 ІМЕ -5ТЕР(0,302,4 

LINE -STEPCC30,;D),4:L INE -5ТЕР.С0;-30);4:РАІМТ. С276%1.5,91х2),4 

RESTORE 110:POINT(168x1.5,184x2):FOR І-1 TO ?3:READ 51,52. 

LINE -(51ж1.5,52ж2),4; МЕХТ I:PAINT(150,200),4 

DATA 174,172,184,160,200,147,210,139,216,137,226,139,240,142,244,135 
DATA 254,138,256,132,294,126,292,121,280,124,266,122,268,112,256,103 
DATA 280,68,250,90,240,94,220,84,200,77,186,65,174,52,158,40,146,28 

DATA 136,14,130,8,126,13,116,11,114,23,120,32,116,47,114,60,110,67 

DATA 108,77,104,83,94,89,96,107,90,113,84,117,76,118,54,105,44,106 

DATA 40,110,54,116,56,112,44,128,26,132,20,149,14,153,28,165,32,179 

DATA, 26,194,32,198,34,195,46,187,56,182,66,185,76,183,72,178,66,176 

DATA 58,164,46,159,42,152,54,144,66,146,76,158,92,144,104,144,118,150 
DATA 140,161,160,177,168,184 

CIRCLE (70,340),4,3:PAINTC?70, 340) ,3:L INECS00,352-(600,852,0, BF 

LOCATE 64,2:PRINT “Мо. 5 HOLE':LOCATE 64,3:PRINT '385m Par 4":СХ-550:СҮ-150 
GRX-2494:G6RY-2255:L0X262:L0Yz7213:STX2427:STY-2195:60TO 344 

REM 9999999 th Hole €999999 

FOR I-1 TO 4:J( IZ INTCRNDC12x300)0-101:KC IDZ INTCRNDC12x200)0 *101:NEXT I 
FOR ISI TO 4:СІКСІ Е(.//Х12,300),33,4:СІКСІЕС100,К(122,33,4 
РАІМТС.ӘС1),300%32),4:РАІМТ(100-32,К(122,4:МЕХТ I:CIRCLE (100,602,45,4 
РАІМТ(100,60),4:СІКСІЕ(100,60),55,5,0,3.14159:Р01М7(100-55,60) 

LINE -5ТЕР(0,290),5:11МЕ -5ТЕР(400,0),5 ГІМЕ -5ТЕР(0,-100),5 

LINE -STEP(-290,0),5:LINE -5ТЕР(0,-190),5:СІКСІ Е(100,60),4,3 
РАІМТ(100,60),3:СІКСІЕ (500,300),30,5:РОІМТ(500-15,300-15) 

LINE -STEP(30,05,42:L INE -STEP(CO,S30D,A:LINE —-STEP(-30,0),4 

LINE -STEP(0,-30),4:PAINT(500,300),4:PAINTC1,120,5:CIRCLE (50,120),15,7 
РАІМТ(50,120),7:СІКСІЕ (150,120),15,7:РА1МТ(150,120),7 

LINE (500,35)-(600,85),0,ВҒ: 1 ОСАТЕ 64,2:PRINT "Мо. 6 НОЕ" 

LOCATE 64,3:PRINT '640m Par 5':CX-550:CYz150:GRX-374: GRY-219:LOX-47:L0Y-1 
СІКСІЕ 250, 300 ), 20,1:РАІМТ‹ 250 , 300 ), 1 

5ТХ-500:5ТҮ-300:60Т0 344 

REM ФФФФФФФ 7th HOLE %ФФ%Ф%99 

CIRCLE (100,2002,50,4:СІЕСІЕ (100,200), 15,4:РАІМТ (100,230),4 

FOR І-1 TO 18: LINE (100, 200-5*12-(150, 2@@- 5+1),0:МЕХТ I 

FOR 1=1 TO 20:1 INE (153-1,200%6)-(153-1,250),4:МЕХТ І 

FOR I=1 TO 20:LINE (130, 200+6+1)-(170,200+6+1),4:МЕХТ I 

CIRCLE (220,200)2,50,4:CIRCLEC220,200)2,15,4:PAINTC220,230),4 

FOR 1=1 TO 50:LINE(270*1,150)-(270*1,2500,4:NEXT I:PAINT(220,200)2,1,4 
FOR І-1 TO 40:LINE(319,210*12-(370,210* I) ,4:NEXT I 

FOR 1=1 TO 45:11МЕ(370%1,150)-<370-1,250),4:МЕХТ I 

FOR 1=1 TO 25:LINE(409,150*12-(470,150*12,4:NEXT I 
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FOR І-40 TO 65:11МЕ(409,150%1)-(470,150%1),4:МЕХТ I 

CIRCLE (100,200) , 69,5,1 .5798,4.71232: CIRCLE (470,200),60,5,4. 71239, 6.28318 
CIRCLE 470,200) ,60,5,0,1.5708:1 ІМЕ‹ 100,140) (470, 140), つ 

LINE (100, 260)- (470, 260), S: CIRCLE (100,702,45,4: PAINT(109,79 ) ,4 
CIRCLE(100, 70),55, St CIRCLEC90,60),4, 3:PAINT(90, 60) , 3: CIRCLE(470,310) , 35, 5 
POINT(455,295):LINE -STEP(30,0),4:LINE -STEP(0,30),4:LINE -5ТЕР(-30,0),4 
LINE -5ТЕР(0,-30),4:РАІМТ(456,298),4:РАІМТ(1,12,5 

LINE (500,35)- (600,852,0,BF:LOCATE 64,2 

PRINT "Мо. 7 HOLE" :LOCATE 64,3:PRINT "308m Par 4”:СХ-420:СҮ-60 
ӨВХ-30:6РҮ-274:10Х-4:10Ү-14: STX- 470:5ТҮ-310:60Т0 344 

REM 9999999 8th Hole %%%%%9%9 

RESTORE 160:POINT (199,199):FOR 1=1 TO 48:READ S1,S2:LINE -STEP(S1 ,S2 ) 4 
NEXT I:PAINT(100,10225,4:POINT(120,85D:LINE -STEP(30,0),4 

DATA -20,20,20,20,-20,20,20,20,-20,20,20,20,-20,20,20,20,-20,20,20,20 
DATA -20,20,20,20,20,-20,20,20,20,-20,20,20,20,-20,20,20,20,-20,20,20 
DATA 20,-20,20,20,20,-20,20,20,20,-20,-20,-20,20,-20,-20,-20,-20,20 

DATA -20,-20,-20,20,-20,-20,-20,20,-20,-20,-20,20,-20,-20,-20,20 

DATA -20,-20,20,-20,-20,-20,20,-20,-20,-20,20,-20,-20,-20,20,-20 

DATA -20,-20,-20,20,-20,-20,-20,50,0,200,20,20,440,0,50,-50,-50,-50,-50,0 


LINE -STEP(0,-30),4:LINE -STEP(-30,0),4:LINE -STEP(0,30)2,4:PAINT(C122,78),4 


CIRCLE( 459 , 399 ) , 45,4:PAINT( 459 , 399 ) , 4 :CIRCLE(599 , 399 ) , 45,4:PAINT(S599 , 399 ) , 4 
CIRCLE (500,285) , 4 ,3:PAINT(599 , 285 ) , 3:CIRCLE(389 , 289 ) , 35 , 1 。 , ,.92 
PAINT(380,280),1:POINT(80,80):FOR 1=1 TO 12:READ S1,S2:LINE -5ТЕР(51,52),5 
NEXT I:POINT(170,100):FOR 1=1 TO S:READ S1,S2:LINE -STEP(S1,92),5:NEXT I 
DATA -100,-50,-200,-160,-80,0,0,40,-10,0,40,0,150,120,-30,30,-160,0,0,-150 
PAINT(259 , 299 ) ,5:PAINT(9,299 ) ,5:LINE(599 , 35 ) -( 699 , 85 ) , 9 , BF 

LOCATE 64,2:PRINT "Мо. 8 HOLE':LOCATE 64,3:PRINT "404m Par 4° :СХ=550 :СҮ=150 
STX2135:STY270: GRX2374:GRY-719:LOX-47:L0Y-21:GOTO 344 

REM 9999999 Oth HOLE 9999999 | 
CIRCLE(150,140),40,4:CIRCLEC270,100),25, 4: CIRCLECA00, 269 ) , 69 , 4 
CIRCLE(549 , 269 ) , 45,4:FOR 1=1 TO 19:LINE (150,134%12-(270,94%1),4 

LINE (279,94+1 )-(499,254+1 ) ,4:NEXT 1:PAINT(139,149),4:PAINT(279,29 ) ,4 
PAINT(419,269 ) ,4:PAINT(549,269),4:PAINT(279,115),4 
CIRCLECA00,260),65,5,0,1.85:CIRCLE( A00,260),65,5,3,6.28318 

СІЕСІ Е(250,200),80,1,,,.25:РА1І1МТ(250,200),1:СІКСІЕ(240,145),25,7,,,.25 
РАІМТ(240,145),7:СІКСІ-Е(150,140),45,5,1.05,4.7123:РОІМТ(З335,252) 

LINE -STEP(-150,0),5:LINE -5ТЕР(-35,-67),5:СІКСІ Е(270,100),30,5,0,2.094 
(ІМЕ(255,73)-(172,100),5:11МЕ(383,197)-(300,100),5:СІКСІ Е(540,230),4,3 
PAINT(540,230),3:CIRCLE(540,2602,50,5:POINT(45,100) : RESTORE 188 

FOR 1=1 TO 9:ІҒ 1<5 THEN K=4 ELSE IF I-5 THEN K-0 ELSE К-5 

READ S1,S2:LINE -5ТЕР(61,52),К:МЕХТ I:PAINT(47,102),4 

DATA 0,30,30,0,0,-30,-30,0,-5,-5,0,40,40,0,0,-40,-40,0 

PAINT (1,299),5:LINE (500,35)-(600,85),0,ВҒ:1 ОСАТЕ 64,2 

PRINT "Мо. 9 HOLE':LOCATE 64,3:PRINT "551m Par 5':CX-420:CY-60 
ОВХ-30:6Қ8Ү-274:10Х-4:10Ү-14:5ТХ-60:5ТҮз115:060Т0 344 

REM 9999999 10th HOLE €999999 

POINT(300,300):LINE -(380,220),7:LINE -(300,140)0,7:LINE -(220,220),7 
LINE -(300,300),7:СІКСІЕ (300,300),170,4,.7854,2.3562 

CIRCLE (300,300),265,4,.7854,2.3562:LINE (112,113)-(179,181),4 

LINE (488,1132-(421,1812,4:PAINT(300,120),4 

FOR 1=0 TO 9:LINE (380-1,220-І)-<370-1,230-І),7:МЕХТ I 

FOR 1=9 TO 9:LINE (300%1,140%1)-(290%1,150%1),7:МЕХТ I 

FOR 1=0 TO 9:LINE (230*1,210*120-(220*1,220* I) , ¿NEXT I 

FOR 1=0 TO A:LINE (295,240*120-(305,240*I2,7:NEXT I 

LINE (250,2505)-(112,11325,7?:LINE (350,2502-(488,113),7 
POINT(315,315):LINE -STEP(9,-39),4:LINE -5ТЕР(-30,0),4:11МЕ -5ТЕР(0,30),4 
LINE -STEP(39,9),4:PAINT(399 ,399 ) ,4:CIRCLE(300,300),25,5,3.927,5.498 
CIRCLEC300,300),275,5,.7354,2.4062:L INE (93,120)-(282,318),5 

LINE (507,120)-(318,3182,5:S1- INT(RNDC 12x80) +46 :52=3.14159ж51/180 

CIRCLE ((COS(S2 ) )x219+399 , 300- (SINCS2))x2100,4, 3:PAINT(C1,200),5 
PAINT((COS(S2 ) ) ж210+300 , 399-(SIN(S2 ) )x219),3:LINE(599 , 35 )-( 699 , 85 ) , 9 ,BF 
LOCATE 64,2:PRINT "No.19 HOLE':LOCATE 64,3:PRINT '210m Par 3' 

CX=559 : CY=159 : GRX=39 : GRY=274:LUX=4:LOY=14:STX=399:STY=399:GUTU 344 

REM 9999999 11th HOLE %%%%%%9 
CIRCLE(140,300),40,4:CIRCLE(C140,300),42,1:CIRCLE(C140, 3005 ,25,1 
CIRCLE(140,300),97,5,3.14159,6.28318:L INE (43,300)-<43,100),5 
РАІМТ(140,3502,1:СІБСІЕ(120,150),40,4,,,.8:РАІМТ(120,150),4 
CIRCLEC170,1002,35,4:PAINT(170,100),4:CIRCLEC250, 702,85,4, , , .2 
РАІМТ(250,70),4:СІКСІЕ(93,100),50,5,1.5708,3.14159 

CIRCLE(123, 58), 30,5,1.5708,3. 14159: ( ІМЕ(120,20)-(370,20),5 
POINT(365,55): LINE -STEP(9, 39 ) ,4:LINE -STEP(30,0),4:LINE -STEP(9,-39 ) , 4 
LINE -5ТЕР(-30,02,4: PAINT( 370, 60), 4:CIRCLE(368, 60), 40,5,0,1.5708 
CIRCLE(368,60),40,5,4.7124,6.28318:CIRCLE(370, 230) , 139 ,5, 1 .5798 , 3.14159 
LINE(238,399 )-(249 , 239 ) ,5:СІРСІЕ (200, 299 ) , 25 ,1:PAINT(299 , 185 ) , 1 


221 CIRCLE(210,150),40,7,,,.2:PAINT(210,150)0, 7:РАІМТ‹ 140,300) , 4 

222 CIRCLE(145,3052,4,3:PAINT(145,305),3:PAINT(1,200),5 

223 LINE(500,352-(600,852,0,BF:LOCATE 64,2:PRINT 'No.11 НОЕ" 

224 LOCATE 64,3:PRINT '418m РАР 4”:СХ-550:СҮ-150 

225 6ЕХ-494:6ВҮ-255:10Х-62:10Ү-13:5ТХ-380:5ТҮ-70:60Т0 344 

226 REM 9999999 12th HOLE %%Ф%%%%% 

227 СІКСІ Е(300,150),50,4,0,3.14159,,8:1 ІМЕ(250,150)-(250,26029,4- . 

228 LINEC350,150)2-(350,260),4:L ІМЕ(250,260)-(350,260),4:РАІ1МТ(300,200),4 

229 RESTORE 231:POINT(250,300):FOR І-1 TO 9:IF І-5 THEN К-0 ELSE К-1 

230 READ S1,S2:LINE -5ТЕР(651,52),К:МЕХТ I:LINE(300,230)-(300,345),1 

231 DATA 0,-70,-50,25,0,90,50,-45,100,0,0,-70,50,25,0,90,-50,-45 

232 PAINT(230,3000,1:PAINT(370,300),1:POINT(280,125):LINE -STEP(0,50) 

233 LINE -STEP(49.9):LINE -STEP(0,-50D0:LINE -STEP(-40,0)2:PAINT(300,135),7 
294 POINT(C285, 3300 LINE -STEPC38, 0D INE -STEPCO, 300,4 

239 LINE. -STEP(-38,00 , '3LINE -5ТЕР(0,-30),4:РАТНМТ(290;350»,4 

236 FOR. -JSI TO 10 STEP SIPOR I1 TO S:LINE(249,210*I1442-(351,210*1*J),0:NEXT I 
237 NEXT J:POINT(270,50)0:FOR 1=0 TO 9:READ 51,521 ІМЕ -5ТЕР(51,52),5:МЕХТ I 
238 DATA 60,0,40,40,0,100,50,30,0,150,-240,0,0,-150,50,-30,0,-100,40,-40 

239 CIRCLE(120,70)2,55,5:CIRCLE(C120,702,45,4:PAINT(C120, 700 ,4:CIRCLE(C110,60)2,4,3 
240 PAINT(119,69),3:PAINT(1 ,299 ) ,5:LINE(599 , 35 ) -( 699 , 85 ) , 9 , BF 

241 LOCATE 64,2:PRINT “No.12 HOLE':LOCATE 64,3:PRINT "410m Par 4" 

242 CX-2550:CYz2150: GRX=494 : GRY2255:L0X262:L0Y-713:STX-2300:STYz345:G0TO 344 

243 REM ФФФФФФФ 13th HOLE €999999 

244 СІКСІЕ(9,9),30,7,4.71239,6.28318:СІКСІЕ(69,69),30,7,1.5708,3.14159 

245 (ІМЕ(9,9)-(69,69),7,В:РАІМТ(10,102,7:РАІМТ(65,652,7 

246 LINECO,0)-C?79,792, 1, B:LLINE(9,90-(69,692,1,B: PAINTC2,2)5,1 

287 CIRGLEC39; 390,25, 01PBAINTC39,; 99) ,A:1LTNECQ,0)-(79, 79), S, B 

248 GET(CO,02-(79,390 , ZZX3LINEC0O,02-C79,79),0,BF 

249 FOR 1=120 TO 361 STEP 80:FOR J-39 TO 120 STEP 40 

250 K-INT(RNDC12x2)2*1:IF K-2 THEN РОТ‹І,Ј), 22% 

291 NEXT J:NEXT 1:11МЕ(40,159)-(119,237),5,В:11МЕ(65,184)-(94,213),4,ВҒ 

292 (ГІМЕ(С440;159)-(529,2379: 53 B3PAINTCI,12,5 

253 СІКСІЕ(480,199),40,4:РАІ1МТ(480,199),4:СІКСІ Е(490,219),4,3:РА1МТ(490,219),3 
254 LINE(500,352-(600,852),0,BF:LOCATE 64,2:PRINT "No.13 НОЕ" 

255 LOCATE 64,3:PRINT "407m Par 4° :СХ=60 :СҮ=60 

256 бЕХ-494:6КҮ-274:10Х-62:10Ү-14:5ТХ-80:5ТҮ-199:60Т0 344 

257 REM ФФФФФФФ 14th HOLE 9999999 

258 СІКСІЕ (250, 230 ),100,1:РАІМТ (250 , 230 ),1:СІРСІЕ(310, 200), 300 ,5,1.6,4.7,.9 
259 СІКСІЕ(100,300), 45,4, ,,.7:РАІМТ‹ 100,300) ,4:CIRCLE( 199,399 ) , 75,4, , , . 3 

260 РАІМТ (45,300 ),4:РАІМТ( 165,300), 4:РЕЅТОРЕ 262:;С0=4 : РОІМТ‹ 70, 200) 

261 FOR 1=1 TO 16:READ.S$1,S2:LINE .-5ТЕРС51,52),С0:МЕХТ І:РАІМТ (80, 159 ) , 4 

262 DATA -30,-30,20,-100,100,-30,0,-30,120,10,50,30,30,10,-10,50,50,0,0,30 
263 DATA -80,10,-20,-20,-50,-40,-100,20,-20,70,-60,20 

264 LINE(C390,160)0-(420,190),4, BF: CIRCLE(C260,2800,35,4, , , . 21PAINT(260,280)2,4 
265 CIRCLE(250,2302,120,5,4.2,6,28:LINE(195,3352-(163,370) , LINE -(0,370),5 
266 СІЕСІ Е(290,150),150,5,0,1.57:11МЕ(0,52-(290,0),5:11МЕ(440,150)-(440,200),5 
267 LINE -(370,230),5:РАІМТ(0,0),5:РАІМТ(0,200),5:РАІМТ(9,390),5:РАІМТ(50,12,5 
268 CIRCLEC70,310)2,4,3:PAINT(70,310),3:PAINT(500,200) ,5:CIRCLE( 79 , 35 ) , 20,1 
269 РАІМТ(70,352,1:СІКСІЕ(50,230),20,7,,,.65:РАІМТ(50,2302,7 

270 СІКСІЕ(105,35),18, 7:РАІМТ‹ 105,35), 7:1 ІМЕ (500,35) (600,85) ,0,ВЕ 

271 LOCATE 64, 2:РРІМТ 'No.14 НОЕ" :1 ОСАТЕ 64,3:PRINT '523m Par 5" 

272 CIRCLE (190,1105,50,7,,,.2:PA&INT(C190,110)5,7 

273 CX=559 : CY=159:GRX=494 : GRY=255:LOX=62:LOY=13:STX=495:STY=175:GOTO 344 

274 REM ФФФФФФФ 15th HOLE 9999999 

275 CIRCLE(C200,1700,150,1,,,.25:PAINT(200,170),1:CIRCLE(370,2302,20,7, , , .4 
276 СІКСІЕ (430, 280), 45,4:РОІМТ (370,300 ) :RESTORE 278:FOR 1=1 TO 11:READ 51,52 
277 LINE -5ТЕР(51,52),4:МЕХТ І:РАІМТ (350 , 300 ) , 4: РАІМТ (430, 280) , 4 

278 DATA -30,20,-50,20,-20,-35,-130,0,-50,-50,10,-30,30,20,60,-15,100,30,40 
279 DATA -20,40,60,50,0,0,40,150,0,120,30,0,70,30,30,60,20,30,30,0,40,-30,30 
280 FOR I-0 TO 5:СІКСІ Е(80%50ж1,130),10%1,4:РАІМТ(80%50ж1,1302,4:МЕХТ I 

281 РАІМТ(370,230),7:11МЕ(50,50)-(80,80),4,ВҒ:РОІМТ(40,400:ҒОР 1=1 TO 14 

282 READ S1,S2:LINE. -5ТЕР(61,52),5:МЕХТ I:CIRCLE(A30,265),4,3:PAINT(CA430,265)2,3 
283 DATA -60,20,-120,-10,-230,-60,0,-240:PAINT(0,200),5 

284 (ІМЕ(500,352-(600,85),0,ВҒ:1ОСАТЕ 64,2:PRINT 'No.15 HOLE':LOCATE 64,3 
285 PRINT '46?m Par 4":CIRCLE(389 , 329 ) , 29 , 1 , , , . 7:PAINT(380,320)2,1 

286 CX-550:CY-150:G6RX-2494:GRY-2255:L0X262:L0Y213:STX265:STY265:G0TO 344 

287 КЕМ ФФФФФФФ 16th HOLE 9999999 

4UB RESTORE 299:FOR I«1.TO-17:READ S,T,U,VSL INECS, TO -CU, V2 5 7 NEXT I 

289 DATA 120, 50,380, 50,120, 70,380, 70,120,210,380,210,120,270,380,270 

290 DATA 100, 70,100,250,400, 70,400,250,120, 70,120,210,380, 70,380,210 

291 DATA 180,230,320,230,180,230,160,270,320,230,340,270,180,110,320,110 

292 DATA 180,170,320,170,200,120,300,120,200,160,300,160,200,120,200,160 

293 DATA 300,120,300,160 

294 FOR 1=1 TO 14:READ $1,S2,HA,T1,T2:CIRCLE(S1,S92) ,HA, 7, T1, T2:NEXT I 


ЈА К< 


DATA 120, 70,20,1.57080,3.14159,120,250,20,3.14159,4.71239 
DATA 380,250,20,4.71239,6.28318,380, 70,20,0.00000,1.57080 
DATA 180,140,15,0.00000,6.28318,320,140,15,0.00000,6.28318 
DATA 180,140,30,1.57080,4.71239,320,140,30,4.71239,6.28318 
DATA 320,140,30,0.00000,1.57080,320,140,40,2.61700,3.66519 
DATA 180,140,60,0.00000,0.35360,180,140,60,5.92959,6.28318 
DATA 300,250, 5,0.00000,6.28318,200,250, 5,0.00000,6.28318 
РАІМТ‹ 150,80 ), 4, 7: РАІМТ( 220,140), 7: РАІМТ‹ 290,140), 7 
LINE ‹ 240,300 )-( 280 , 340 ), 7,ВЕ:1ІМЕ (240 , 300 )-(259 , 290) ,7:11ІМЕ – (270,290), 7 
LINE – (280,300), 7: РАІМТ (260 , 295), 7:1 ІМЕ (245, 305) - (275,335) , 4, BF 
РОІМТ‹ 304,184) :ҒОВ 1=1 TO 12:IF І=4 OR І-8 OR 1=11 THEN C=4 ELSE C=9 
READ S$1,92:L INE -STEPC(S1,S2),CA1NEXT -1 
DATA 12,0,-12,22,12,0,28,0,0,-22,12,22,0,-22,989,0,6,10,0,12,6,-22,—-6,10 
CIRCLEC330,19520,6,0,,,. 75: A2 INTCRNDX2) *1: IF A21 THEN 5-50 ELSE S=-59 
СІКСІ Е(260-5,90),4,3:РАІМТ(260-5,90),3:РАІМТ(1,1),5,7 
( ІМЕ(500,352-(600,85),0,ВҒ:1ОСАТЕ 64,2:PRINT 'No.16 HOLE" 
LOCATE 64,3:РРІМТ "254m Par 3':CXz550:CY-150 
PAINT(200,652,1, 7: PAINTC250,250)0,1, 7:3 PAINT(C200,115)2,1,7? 
GRX2494: GRYz255:LOXz62:L0Yz13:STX2260:STY2320:G60TO 344 
REM 9999999 17th HOLE %%%%Ф%9 
POINT(38*x6,8x6-40) : РЕЅТОРЕ 317:ҒОЕ Ісі TO 69:IF I=51 THEN C-0 ELSE C=1 
READ S1,S2:LINE -с(51жх6,52%6-40),С:МЕХТ I:PAINT(20x6,25x*x6*10)2,4,1 
DATA 30,19,30,21,33,21,33,23,32,23,30,25,35,27,35,29,30,32, 30, 34, 32, 35,28 
DATA 35,28,37,33,40,33,44,27,46,30,49,20,52,20,55,35,55,30,57,30,59,23,60 
DATA 16,64,20,66,30,66,32,64,38,68,41,68,45,65,50,65,48,62,48,59,51,56,51 
DATA 50,47,53,46,52,48,49,48,44,44,38,44,28,40,27,40,25,47,20,47,15,40,15 
DATA 46.11,46,10,44,8,38,8,20,25,15,30,11,28,8,30,8,35,7,38,3,38,0,41,0 
DATA 45,5,45,9,49,12,47,18,41,20,43,22,41,22,36,27,32,25,27,20,25 
LINE(38※6+2 , 8X6-49 )-( 38х6-2,8ж6%2-40),1:РАІМТ(38%6,8х6%102,4,1 
CIRCLE (85,169),4.3:PAINT(85, 169 ) , 3 
LINE(359 ,9 )-(459 , 299),1:LTINE -(350,400),1 
PAINTC1,12,1:PAINTC600,12,5,1:LINEC5900,352-(600,85)2,0,BF 
LOCATE 64,2:PRINT "Мо.17 HOLE':LOCATE 64,3:PRINT '238m Par.3' 
СХ-550:СҮ-150:6ЕХ-494:6РҮ-255:10Х-62:10Ү-13:5ТХ-250:5ТҮ-340:60Т0 344 
REM 999999 18th HOLE €999999 
CIRCLEC140,240)2,50,1:PAINT(140,2400,1:CIRCLEC220,330)2,50,1, , , .1 
РАІМТ (220,330 ),1:СІЕСІ Е ( 250, 290), 20,1:РАІМТ (250 , 290 ),1:СІРСІЕ‹ 300, 260) , 20 
РАІМТ‹ 300, 260), 7:СІРСІ Е 40,140 ) , 30, 1:РАІМТ (40,140 ),1:СІРСІЕ‹ 30, 200), 15,7 
PAINT(39 200), 7:1 ІМЕ(470, 310 )- (510, 350) ,5,В:_ІМЕ (475,315) -‹505,345),4,ВҒ 
СІВСІЕ (70, 70), 40,4:РОТМТ (150, 120) :РЕЅТОВЕ 336:FOR 1=1 TO 16 
READ S1,52:LINE -5ТЕР(51,52),4:МЕХТ І:РАІМТСТӢ, 70 ) ,4:РАІМТ (110,150 ) , 4 
DATA 50,10, -50,50,-10,120, 60,40,1090, -30, 150, 20, 20, -20,-10, -30, -120, 30 
DATA -30,-40,-30,30,-80,-10,-20,-50,10,-50,30,-30,30,-40,40,0,-10, 30 
DATA -30,40,30,10,30,30,20,60,70,-50,30,0.,60,60,10,20,-10,50,-60,10,-150 
DATA -10,-70,0,-60,-50,-30,-110,0,—-70,30,-80,30,-30,50,20,10,50,10,20 
РОІМТ(130,100):ҒОВЕ 1=1 TO 22:READ S1,S2:LINE -5ТЕР(61,52),5:МЕХТ I 
PAINT(1,12,5:LOCATE 64,2:PRINT 'No.18 HOLE':LOCATE 64,3:PRINT "695m Par 5' 
(ІМЕ(500,352)-(600,85),0,ВҒСІРСІ Е(50,90),4,3:РАІ1МТ(50,90),3 
СХ-550:СҮ-150:б6ЕХ-374:6КҮ-19:10Х-47:10Ұ-1:5ТХ-490:5ТҮ-330:60Т0 344 
REM ФФФФФФФ FOR スタ ー ト で ササ ササ ササ 
LINECGRX,GRYO-CGRX*104, GRY+1009 ) ,9 , BF 
LINECGRX,GRYO-CGRX*104, GRY*590,2,B:LINECGRX, GRY+61 )-(GRX+104 , СРҮ+100 ) , 1,B 
SHUT=1 : 2АХ(0 ) =5ТХ:2АҮ(0 ) =5ТҮ 
CIRCLECSTX,STY2,1.5,2:PAINTC(STX, ТҮ), 2 
REM ФФФФФФӨФ k3-5" Part 1 ササ ササ 
RESTORE 351:FOR 1=1 TO SHOT:READ SHOTNUMS:NEXT I 
DATA Tee,2nd,3rd,A4th,5th,6th,7th,8th,9th, 10th, 11th, 12th, 13th, 14 th , 15th 
DATA 16th,17th,18th,19th,20th,215t,22nd,23rd,240th, 25th, 26th, 27 th , 28th, 29 th 
LOCATE LOX«2,LOY:PRINT SHOTNUM$;" shot" 
REM ФФФФФФФ FOR カク ト " ФФФФФФФ 
CIRCLE (СХ,СҮ),30,0:РАІМТ(СХ,СҮ),0:СХ2-0:СҮ2-й 
IF CX=559 THEN LINE(520,126)-(588,215),0,BF:LOCATE 66,10:PRINT `) 
IF CX=429 THEN LINE(390,96)-(458,115),0,BF:LOCATE 50,5:РКІМТ `? 7 
IF CX=69 THEN LINE(30,96)2-(98,1152,0,BF:LOCATE 5,5:PRINT '5 2 М7" 
KAX-INP(CÓ) 

IF (КАЖ AND %Н22-0 THEN KAKUDO-ZKAKUDO-*2 

IF (КАХ AND &H4)=9 THEN KAKUDO-KAKUDO-*10 

IF (KA% AND &H202-0 THEN KAKUDO-KAKUDO-10 

IF (КАЖ AND &H40)=0 THEN KAKUDO-ZKAKUDO-2 

IF (KA% AND &H80)=0 THEN GOTO 368 | 
CX12CCOSCKAKUDOx3.14159/1800)x20:CY1z2CSINCKAKUDOx3.14159/180) ) x20 
LINECCX,CYO-CCX4CX2,CY-CY2»o ,B1LINECCAX CYO-CCX*CX1,CY-CY124,2 


" СХ2-СХ1:СҮ2-СУҮ1:060Т0 359 


IF CX=559 THEN LINE(520,196)-(588,2152,5,BF:LOCATE 66,10:PRINT " Š 
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IF CX=429 THEN LINE(3929 ,96)-(458,115) ,5,BF LOCATE 50,5:PRINT ` 4 
IF CX=69 THEN LINE(30,96)-(98,115),5,BF:LOCATE 5,5:PRINT ` Š 
REM Vveveve 757° 1257 ササ ササ ササ 
БОСАТЕ LDIST,;UDY*T4PRINT- SID 2977 ІК?” 
КЕ%-ІМР(9) 
IF (KR% AND &H2)=9 THEN CLUB=19:GOTU 380 
IF (KR% AND &H4)=0 THEN CLUB=29:GUTU 380 
IF (KR% AND %Н82-0 THEN CLUB-1:60TO 380 
IF (KR% AND &H19)=9 THEN СІШВ-2:60Т0 380 
IF (KR% AND &H20)=0 THEN CLUB-3:60TO 380 


GOTU 373 

IF CLUB=1 THEN LOCATE LOX,LOY-1:PRINT ' pitching ы  ':60TO 404 
IF CLUB=2 THEN LOCATE LOX,LOY+1 :PRINT ° sand w ":60TO 404 
IF CLUB=3 THEN LOCATE LOX,LOY+1 :PRINT ` putter ":GOTO 404 


IF CLUB=19 THEN LOCATE LOX,LOY-1:PRINT " wood (1-5)? ':G0TO 385 
IF CLUB=29 THEN LOCATE LOX,LOY-*1:PRINT ' iron (2-9)? ':60TO 393 
LOCATE LOX+6,LOY+1 


KAX-INP(CÓ) 
IF (КАХ AND &H2)=9 THEN CLUB=CLUB+1 :PRINT '(1) ":GOTO 404 
IF (KA% AND &H4)-0 THEN CLUB=CLUB+2:PRINT "(2) ":60Т0 404 
IF (KA% AND &H8)=9 THEN CLUB=CLUB+3:PRINT "(3) ":60Т0 404 
IF (KA% AND &H19)=9 THEN CLUB=CLUB+4:PRINT "(4) ":eGOTO 404 
IF (КАХ AND &H29)=9 THEN CLUB=CLUB+5:PRINT '(5) ":GOTO 404 
GOTO 386 


LOCATE LOX+6,LOY+1 
ҚА%-ІМР(6):К6%-ІМРС?) 
IF (КА% AND &H4)=9 THEN CLUB-CLUB*2:PRINT "(2) ":60Т0 404 


IF (КА% AND &H8)=9 THEN CLUB=CLUB+3:PRINT "(3) ":60Т0 404 
IF (KA% AND &H19)=9 THEN CLUB=CLUB+4:PRINT "(4) ":GOTO 404 
IF (KA% AND &H29)=9 THEN CLUB=CLUB+5:PRINT '(5) ":60Т0 404 
IF (KA% AND &H40)-0 THEN CLUB-CLUB-*6:PRINT "(6) ":GOTO 404 
IF (КАХ AND &H89)=9 THEN CLUBZCLUB*?:PRINT "(7) ":60TO 404 
IF (KG% AND &H1 )=9 THEN CLUB=CLUB+8:PRINT '(8) ":60Т0 404 
IF (KG% AND &H2)-0 THEN CLUB=CLUB+9:PRINT "(9) ":GOTO 404 


GOTO 394 

REM Veveeveve 3" ; >71 vevvevvee 

FOR І-1 TO 1000:МЕХТ I 

LOCATE LOX,LOY-*2: PRINT. ^o 934 ACLS)? :LOCATE EX ,LOY «2 


КАж-ІМР(6) 
IF (KA% AND &H2)=9 THEN POWERZ6:PRINT ' power 1 ":60Т0 414 
IF (KA% AND &H4)=9 THEN POUER-7?:PRINT " power 2 ":60Т0 414 
IF (KA% AND &H8)=9 THEN POWER-8:PRINT ` power З ":60Т0 414 
IF (KA% AND &H19)=9 THEN POUER-9:PRINT " power 4 ":60Т0 414 
IF (KA% AND &Н20 )=0 THEN POMER=19:PRINT " power 5 ":60Т0 414 
GOTO 407 


IF CLUB=3 THEN POUER-CPOUER-5)x2 

HIKIYORI-ZKIYORI(CCLUB) xPOUER/10 

REM 9veveve 1° ; ケイ サン で て リサ ササ 

IF (BASHI(SHOT-1 )=Z AND CLUB く >2) THEN GOTO 418 ELSE GOTO 419 
FFF=INT(RND(1)%19)+1:HIKIYORKT=INT(HIKIYOR エ /FFF ) 
50SA1=INT(RND※(19+EXTRKA1))-(5+EXTRA1/2 ) 

KAKUD=KAKUDO+G0SA1 

GOSA2=(INT(RND※X(KIYOURI(CLUB )+EXTRA2))-((KIYORTI(CLUB )+EXTRA2 )/2 ) )※。1 
HIKIYORIZHIKIYORI-*GOSA2 

REM %ФФФФФФ FOR タマ 7 M2 vevevee 

ZAXCSHOTOZINTCZAXCSHOT-12* CCOSCKAKUDXx3.14159/180 ) ) жНІКІҮОВІ) 
ZAYCSHOTOZINTCZAYCSHOT-15-CSINCKAKUDXx3.14159/180 ) D XHIKIYORI) 
BASHI(SHUT )=PUINT(ZAX(SHUT ) , INTCZAYCSHOT2/72)) 

IF 5НОТ-1 THEN C-4 ELSE C-COL 
CIRCLECZAXCSHOT-1),ZAYCSHOT-122,1.5,C:PAINTCZAXCSHOT-12 , ZAYCSHOT-1))5,C 
TODUZINT(CHIKIYORI/5) 

FOR 1=1 TO TODU 

QXCIOZZAXCSHOT-12*COSCKAKUDXx3.14159/180)0 x5*(CI) 
QYCIOZZAYCCSHOT-12-SINCKAKUDx3.14159/180)0 ж5%(І) 
COL-POINTCQXCIO,INT(CQYCIO/2)) 
CIRCLECQXCIO,QYCIO2,1.5,2:PAINT(OQXCIO,QYCIO)2,2 

FOR JeL TO S:NEXT. JIBEEP' 1:BEEP 9 
CIRCLECQXCIO,QYCIO0,1.5,COL:PAINTCQXCIO,QYCIOD,COL 

NEXT I 

CIRCLECZAXCSHOT)2 ,ZAYCSHOT22,1.5,2: PAINTCZAXCSHOT? , ZAYCSHOT) 5,2 

REM 99Vvveee9 72:7) で ササ ササ ササ 

LOCATE LOX*2,LOY*3:PRINT SHOTNUM$;" SHOT 

шыт BASHI (SHOT +2: ON UJ GOTO xOB,xROU,XWAT,xATSU, СОР, XFAT, хов, XATSU, xBUN 

REM キキ まま まま ROUGH キキ キキ 


リス ト 続 く 
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XROU:LOCATE LOX,LOY+Aa:PRINT "ROUGH" 

ЕХТРА1=5:ЕХТРА2=0 

GOTO xATSU 

REM Ф444 WATER HAZARD Ф444 

XUAT:LOCATE LOX,LOY+4:PRINT "МАТЕР  HAZARD' 

ЕХТРА1=0 :ЕХТРА2=0 

KAKUDO-KAKUDO-*180:FO0R І-1 TO 75 

XX- INTCZAXCSHOTO* CCOSCKAKUDOXxX3.15159/180) )*Ix5) 
YY-zINTCZAYCSHOTO-CSINCKAKUDOX3,14159/180))xIx5) 
ZZZ-POINTCOXX,INTCYY/2)):IF ZZZ=1 OR ZZZ-5 THEN TAKO=1 ELSE GOTO 454 

NEXT I 

SHOT=SHOT+1 : ZAX(SHOT )=XX : 7AY(SHOT )=YY 

CIRCLECZAXCSHOT-12,ZAYCSHOT-122,1.5, COL: PAINTCZAXCSHOT- 12,ZAYCSHOT-12),COL 

CIRCLE(ZAX(SHOT ), ZAY(SHOT ) ) , i. ЖЗ PAINTCZAXCSHOT), ZAY(SHOT ) ) , 2 

KAKUDO- KAKUD0+189 

GOTO xATSU 

REM Фф CUP IN ФЬЫЫЫ» 

XCUP:LOCATE LOX,LOY*A:PRINT " C U P ERNS 

EXTRA1=0:EXTRA2=0 

BEEP 1:FOR I-1 TO 70:NEXT I:BEEP 80: LOCATE 2,2:60Т0 481 

REM HEHEHE GREEN or FAIRWAY キキ キキ 

XFAI:LOCATE LOX,LOY-*4:PRINT "FAIRWAY GREEN" 

ЕХТРА1-0: EXTRA2=9 

GOTO xATSU 

REM Ф444 Out of fius キキ キキ 

XOB:LOCATE LOX。LOY+4:PRINT "OUT OF BOUNDS " 

SHOT-SHOT-*1:ZAX(CSHOT)ZZAXCGSHOT-2) + ZAY (SHOT ) =7АҮ(ЅНОТ-2) 

EXTRA1=0:EXTRA2=0 

CIRCLE(ZAX(SHOT),ZAY(SHOT)),1.5,2:PAINT(ZAX(SHOT), ZAY(SHOT ) ) ,2 

じ IRCLE(ZAX(SHOT- 1), ZAYCSHOT-122,1.5,COL: PAINT(ZAX(SHOT- 12; ZAY(SHOT- 129.000 

СОТО xATSU 

REM FEREH SAND BUNKER キキ キキ キキ 

XBUN:LOCATE LOX,LOY-*4:PRINT " SAND BUNKER " 

ЕХТРА1-0:ЕХТРА2-5 

GOTO xATSU 

REM 444^ For Next Shot 4444444 

XATSU:FOR 1=1 ТО 3:LOCATE LOX,LOY-I-41:PRINT ` "sNEXT I 

5НОТ-5Н0Т%1:60Т0 349 

REM 4444444 For Next Hole 4444444 

KEICXROUND) ZSHOT-PARCROUND) : TOTAL (ROUND ) = TOTAL (ROUND- 1)*KEICGROUND? 

FOR 1=0 TO 2:LOCATE LOX, LOY*I: PRINT " "NEXT I 

LOCATE LOX*1,LOY:PRINT 'No.';ROUND; "НОГЕ" 

IF KEI (ROUND ) >0 THEN G$="+" ELSE 6$-'" 

LOCATE LOX*7?,LOY*1:PRINT G$;KEI(ROUND) 

IF TOTAL(ROUND ) >9 THEN G6$-*' ELSE GG$-'" 

LOCATE LOX*1,LOY*2:PRINT "TOTAL  ';66$;TOTAL(ROUND) 

FOR І-1 TO 5000 :NEXT I: IF ROUND- 18 OR ROUND=9 THEN GOSUB 493 

IF ROUND-18 THEN GOTO 492 

ROUND= RUUND+1 : D-ROUND:GOTO 47 

KEY 1,'load '*CHR$(&H22D0:KEY 2,'CLS 2" +СНРФ( 13) : КЕҮ 4, list ':KEY Si pun "+С 


HR$C13): LOCATE 0,13:END 


493 
494 
495 
496 
497 
498 
499 
200 
501 
502 
5203 
504 
505 
506 
507 
508 
509 
510 
211 
ka 
313 
214 
219 
516 


CLS 3:LOCATE 15,1:PRINT "1-27 AM ow 

LINE(3,50)-(628,250) ,5,B:FOR 1=1 TO 4 
LINEC3,50*Ix40)-(628,50*Ix40),5:NEXT I:FOR 1=1 TO 18 

LINEC19*Ix32, 50 )- (19%1ж32, 250), Ə:NEXT I: LOCATE 2,3:PRINT "НОЕ" 
LOCATE 1,59! PRINT "length" + LOCATE 2, PRINT "PAR':LOCATE 1,9 

PRINT ' SCORE" :LOCATE 1,11:PRINT 'TOTAL':FOR 1=1 TO 18 

LOCATE 3*4XxI,3:PRINT I:LOCATE 2*IX4,5:PRINT LONG(IO:LOCATE 3+4X1 , h 
PRINT PARCIO:NEXT I:IF ROUND=1 THEN GOTO 505 

FOR І-1 TO ROUND 

NUA-KEICIO*PARCIO:LOCATE 4+4%1,9:РРІМТ NUA:LOCATE 344X1,11 

PRINT TOTALCIO:NEXT I 

FOR I-1 TO 3500:NEXT I:RETURN 

СІМЕ (50,260 )-( 70, 270) ,4,ВЕ:1ОСАТЕ 10,13:PRINT '.....FAIRUAY or GREEN" 
LINE 50, 280) (70, 290), 7,В:1 ОСАТЕ 10,14:PRINT '.....ROUGH" 
LINE(C50,300)2-(70, 319 ) , 7,BF : LOCATE 10, 15:PRINT '.....SAND BUNKER" 
LINEC50,320)-(70,330),5,BF:LOCATE 10,16:PRINT '.....0UT OF BOUNDS 
CIRCLE( é0, 2245) RE РАІМТ(60, 343),3% LOCATE 18; 3 T1 RINT ee ss CUP. 
CIRCLE COO SOAK, 2: PAINT( 60, 365), 21 LOCATE 10, ӨРКЕ; BALL. 
LOCATE 45,14: PRINT d ds EPUM офа 522 

LOCATE 45,15:PRINT 'f-2 .....iron(2-9)" 

LOCATE 45,16:PRINT ао pitching у" 

LOCATE 45,17 :РРІМТ "#4 .....запа и 

LOCATE 45,18:PRINT "f-5 U BOER 

FOR 1=1 TO 5000:NEXT I:RETURN 


〇 
9 
9 
〇 
〇 
〇 
〇 
〇 


「 あ る 国 の ゴー スト タウ ン に は 、 宝 石 
の 3 チロ ジロ し て いる と いう 、 6v 
を 耳 に し だ チェ スピ ー。 大 金持ち に な 
っ た 夢 を 見 つつ 、 ゴ ー ス ト タ ウ ン へ た 
び だ っ た 。 

LL. 時 を 同じ くし て チェ ィ ス セー 
の ライ バル で ある パブ も 、 こ の ウワサ 
を 開い て ゴー スト タウ ン へ と 向かっ て 
い だ の だ っ な 。 ブイ パプ に 折る な 。 パグ 
より も る 金持ち に な る ん だ 。 


プレ オヤ ーー は 考 ェ スピ ー を 、 ユ シビ 


ュー タ は パブ を 受け 持っ て 、 ジ ャ ン ケ 
ン に よっ て ゲー ム を 進め て ゆき ます 。 
ジャ ン ケ ン で 使用 する キー は 、IQ (Z 
—) C (チョ キ ) “ІРІ @*—) で す 。 

ジャ ン ケ ン の 勝負 が 決ま っ た 段階 で 、 
宝石 の 上 に ある ТЕР) の スロ ッ ト 
窓 が 回 り は じ め る の で 、 SPACE バ バー 
を お し て 止め て 下さ る さい 。 その と き に 出 


co чин SEU HR M толы сай 
was 


R. 
а. 
és 
: 
А 


Cop ight (С) 1904 By Concise 


na : de e y 
Ë А ЕЕЕ ESN ак РЕ DIE M , Fr E T d 


AD 宝石 さがし 始ま る ぞ 。 


у: 


ーー 


і 


めざせ 、 宝 石 / 
パブ より も 金持ち に な る ぞ 。 


た 数 字 だ け 進 ひこ と が で きま す 。 

スロ ッ ト 窓 の 数 字 を 見 て 気がつい た 
と 思い ます が 、 ジ ャ ン ケ ン に 勝っ た か 
ら と いっ て 進め る と は 限り ませ ん 。 ま 
た 、 パ の スロ ッ ト 窓 も あな た が 止め 
i+, パブ を 進め る せる の も 後退 きせ 
圏 マ シン 語 ア ドレ ス 表 


単なる 高速 表示 

16<32 ド ッ ト 

キャ ラク ター の 消去 

チェ スピ ビー の お と し 穴 処 理 
ж? ” 

チェ スピ ー の 喜び の 表示 
ж? ” 

チェ スピ ー の 悲し み の 表 示 


パプ ブ / 
ば くだ ん 


爆弾 表示 、 消 去 


パン チ 表 示 

アド レス 計算 ルー チン 

高 束 表示 ルー チン 

時 間 か せ ぎ (その 1 ) 
" (その 2 ) 

ソー の n: Pd 

キャ ラク ター デー ター 


8 «в!» 
SEP -t 


4A② ジ ャ ケン ポン / 勝 っ た / 


る の も 指先 ひと つ で 決ま り ま す 。 

2 面 以 後 は 「 お と し 穴 」 が 現れ 、 へ 
タ を する と 前 進 し た に も か か わら ず 、 
後退 を よ ぎ な くる せら れる と いう ケー 
E a T, 

得点 は 、 チ ェ ス ピー、 パ パプ と も 1 ス 
テッ プ ' 前 進 す る ご と に 20 点 加算 きれ ま 
+, 宝石 は 画面 NoX1000 点 で す が 、 4 
面目 の み ミ ステ リー ポイ ント 1000 一 
10000 点 ) に な っ て いま す 。 

マシ ン 語 の 入力 、 セ モー ブ 、 ロ ー ド に 
つい て は 120 ペ ー ジ を 参照 くだ さい 。 
分 類 ジャ ン ケ ン ゲ ー ム 
ЕЕ N-88BASIC + Жаа 


| 


ПІ 


ж: ж SCORE : и 


«өтт!» = 


ӨР 4 
READY ! 


AG) 2 面 に な る と 落と し 穴 が 出現 。 
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B GET IT BASIC ブ ログ ラム リス ト 


10 REM X%XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXx 


20 REM XXxx x х жж» 
30 REM x«*x GAME HOBBY .... << GET-IT >> xxx 
40 REM Xxx. xxx 
90 REM xxx Copyright (С) 1984 ; xxx 
60 REM xxx xxx 
70 REM xxx Ву Concise (€ Multiniks Alpha )) xxx 


80 REM IIIS | そそ を そそ < 
90 REM xXxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx 

100 CONSOLE 0,25,0,1:UIDTH 89.25:CLEAR ,&HBEAF:SCREEN 0,3:CLS 3 

110 OPTION BASE 1:RANDOMIZE TIME:DEFINT А-7:5Т-1 

120 DEF USR-&HBES0:DEF USR1-&HBESB:DEF USR2=&HBE65:DEF USR3=&HBE91 

130 DEF USRA-&HBEBD:DEF USR5=&HBED9: DEF USRó-&HBEF5:DEF USR?-&HBF11 
140 DEF USR8-z&HBF2D:DEF _USR9=&HBF52 

150 DIM Y(21,42,E(21,4)2,DE(?) 

160 GOSUB xTITLE 

170 GOSUB xALPHA 

180 xSTART 

190 ҮС=1:ЕС=1:6050В xSTAGE 

200 REM XJXUOXXXXXXXxXXXxxxxxxxx МАІМ  X*xxxxxxXXXXxxXxxXxXxE e ж ж Ж 
210 ※JANKEN 

220 A=USR1( 7Z※256+9 ) : Aa=USR1( 59x256+B ) 

230 HM=INT(RND( 1 x40 ) +1 

248 FOR 1=1 TO HU:iCJ=INT(RND( 1 )x3)+1 :NEXT 

250 FOR А-1 TO 2:BEEP 1:FOR Т-1 TO 25:NEXT:BEEP 0:FOR M=1 TO 50:NEXT:NEXT 
260 COLOR 6:LOCATE 53,3:PRINT "READY 1” 

Zr IF INP(225z12? THEN JA=1 : GOTO 310 

280 IF ІМР(4)-254 THEN JA-2:GOTO 310 

290 IF ІМР(2)-247 THEN JA-3:GOTO 310 

300 GOTO 270 

310 LOCATE. 53, 3: PRINT- " 3 

320 GOSUB xHANDS 

330 SUB=CJ-JA 


340 IF SUB=-1 OR SUB-2 THEN UH-1:GOTO xDICE 

350 IF SUB=9 THEN UH-0:GOTO xNO 

360 WH-2:GOTO xDICE 

370 xNO 

380 COLOR 4:1 ОСАТЕ 53,3:PRINT "NOTHING ! " 

390 FOR T=1 TO 1000:NEXT:LOCATE 53,3:;PRINT " ":50Т0 xJANKEN 
400 xDICE 


410 COLOR 5:LOCATE 53,3:PRINT "PRESS С SPACE ]":COLOR 7 

420 SP-INTCRNDC12X*?)*1:LOCATE 36,2:PRINT "STEP  ';DE(SPO:GOSUB xCLICK 

430 IF INP(9)=191 THEN GOTO 440 ELSE 420 

440 LOCATE 53,3:PRINT SPC(15)0:LOCATE 36,2:PRINT "STEP  ';DE(SPO:FOR T=1 TO 1000: 


NEXT 
450 IF 0Е‹5Р)=0 THEN GOTO ж. ЈАМКЕМ 
460 IF WH=1 THEN GOTO xYOU 
470 GOTO xPUB 
480 ※YUU 
490 YS-YC*DE(CSP) 
200 IF Ү5<-1 THEN ※MINUS 
210 IF YS>=21 THEN ※MINY 
520 IF ҮС>Ү5 THEN xMINUS1 
530 GUSUB xFRONT:YCzYS 
940 xTEST ' 
250 IF ҮС-17 THEN xPUNCH 
560 IF ҮС-13 THEN xBETH 
570 IF ҮС=12 THEN ※THAT 
580 IF YCYC, 3220 THEN xFALL 
390 GOTO xJANKEN 
600 xMINUS 
610 IF YC-1 THEN GOTO xJANKEN 
620 FOR М-ҮС TO 2 STEP -1:5Е--1 
OS A-USR1CYCM, 12x256*YCM, 20) :FOR. I=1 TO 100:МЕХТ:605УВ  xBUZZ 
540, GOSUB xCHAN:AZUSR(CYCM-1,1)2x256*YCM-1,2)) 
650 FOR U-1 TO 150:NEXT 
660 NEXT 
670 ҮС-1:60Т0 xJANKEN 
680 xPUB 
690 ES=EC+DE (SP ) 
700 IF Е5<-1 THEN xEM1 
(10 IF ES>=21 THEN ※MINE 
(209 IF- ECES THEN REMZ 
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730 
740 
750 
760 
779 
780 
790 
800 
810 
820 
830 
840 
850 
860 
370 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1279 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 


GOSUB xFRONT1:EC-ES 
ATES EZ 
IF EC=17 THEN xPUNCH1 
IF EC=13 THEN xBETH 
IF EC=12 THEN хжТНАТ 
IF E(EC。3)=9 THEN xFALL 
СОТО xJANKEN 
xEM1 ' 
IF EC=1 THEN GOTO wJANKEN 
FÜR -MSEC TO: 2 STEP. -1:19E--1 
A-USR1CECM, 1) ж256+Е(М,2) ) :FOR T> 1 ТО 100:NEXT:GOSUB xBUZZ 
GOSUB xCHAN1:A-USR(CECM-1,12x256*ECM-1,2)) 
FOR I-1 TO 150:NEXT 
NEXT 
EC=1:GOTO wJANKEN 
xMINUS1 
FOR M=YC TO YS+1 ӨТЕР--1:5Ех-1 
A=USR1(Y(M。1)%X256+Y(M,2)):FOR I=1 TO 100:NEXT:GOSUB xBUZZ 
GOSUB x*xCHAN:A=USR(Y(M-1,1)%x256+Y(M-1,2)) 
FOR 1=1 TO 150:МЕХТ 
NEXT 
ҮС-Ү5:60Т0 xTEST 
xEM2 
FON MSEC TO ESTI STEP —-1:15E--1 
A=USR1(E(M, 1 )%256+E(M。2)):FOR 1=1 TO 100:NEXT:GOSUB xBUZZ 
GOSUB ※CHAN1 :A=USR(E(M-1 。1 ) ж256+Е(М-1,2)) 
FOR 1=1 TO 150:МЕХТ 
NEXT 
ECSES:GOTO xTEST2 
xPUNCH 
ASUSR9CYCYC,120x256*CYCYC, 22 -0)0) 
OUT 81,33:ҒОР 1=1 TO 50:NEXT:OUT 81,32:6050В xBUZZ2:BEEP 
FOR Iz 1 DO 5 
A-USR6CYCYC,12x256*YCYC, 220) :G0SUB xCLICK 
NEXT 
SC-SC-200:G0SUB xSCORE 
ASUSRICYCYL 1298296921 YCYC y= 4)): ASUSR1CYCYC, 12x256*(YCYC ADDY 
FOR MeEYC TO .YC-1 STEP. -13SE--1 
A-USR1CYCM,12x256*YCM, 20) :FOR І-1 TO 250:NEXT:GOSUB xBUZZ2 
GOSUB XxXCHAN:A-ZUSR(CYCM-1,12x256*YCM-1,2)) 
FOR 1=1 TO 150:МЕХТ 
NEXT 
ҮС-ҮС-2:60Т0 *xJANKEN 
xPUNCH1 
A-USR9(C(ECEC,12x256*CECEC, 22-40) 
OUT 81,33:FO0R 1=1 TO 50:NEXT:OUT 81,32:60SUB xBUZZ2:BEEP 
FOR І-1 TO 5 i 
ム ぬ =USR7(E(EC 。 1 )※256+E (EC ,2 ) ) : GOSUB. *xCL ICK 
NEXT 
$C129C1-200:60SUB XSCORE 1 
A=USR1(E(EC。1 )x256+T(E(EC。2 )-4 ) ) s AZUSRTCECEC, 1 )x256+(E(EC。2)-22 ) ) 
FUR MSEC TO EC-1 STEP -1:SE-- 
A-USR1(CECM, 1 )X256+E(M。2)):FOR 1=1 TO 250:NEXT:GOSUB ※BUZZ 
GOSUB XCHAN1:A-USR(CECM-1,12x256*ECM-1,2)) 


FOR І-1 TO 150:МЕХТ 
NEXT 
ЕС-ЕС-2:60Т0 *xJANKEN 
※FALL 


ҒӨК: 1951 10.3 

ВЕЕР 1:ҒОР В-1 TO 5:NEXT:BEEP 0 

IF UHz2 THEN LOCATE ECM,1)45,ECM,2) ELSE LOCATE Y(M,12*5,YCM, 2) 
PRINT '?":FOR 0-1 TO 250:NEXT 

IF MH=2 THEN LOCATE Е(М,1)%5,Е(М,2) ELSE LOCATE Y(M,12*5,YCM, 2) 
PRINT ' ';FOR Q-1 TO 200:МЕХТ 
NEXT 
FOR I-0 TO 3 

GOSUB xBUZZ1:1F WH=1 THEN A-USR2CYCYC,12x256*YCYC, 20 * D) 

IF WH=2 THEN A-USRS3(ECEC, 1) x256*ECEC, 20 € 1) 

NEXT š 
IF WH=1 THEN ҮС-ҮС-3:6050В xCHAN 
IF WH=2 THEN EC-EC-3:60SUB ※CHAN1 
IF MH=1 THEN A-USR(CYCYC,15x256*YCYC,2)) 
IF WH=2 THEN AzUSR(CE(CEC,12x256*ECEC, 20) 
GOTO ※JANKEN 
XTHAT 


E 


リス ト 続 く 


_8Z 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 

730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1990 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


2198 


2200 
2210 
2220 


IF ЕС-12 AND ҮС-12 THEN xJUP ELSE X JANKEN 

x JUP 

FOR X=Y(YC,1)-2 TO ide 120-15 STEP -1 

A= USR8(Xx256+Y(YC,2 

NEXT 

PLX=(E(EC, 1 )x256+E(EC,2) ) 

FOR E-1 TO 10 

POKE &HBFF3,&HD4:POKE &HBFF2,&Hó: GOSUB xBUZZ2:A-USR(PLX) 
OUT 81,33:FOR 1=1 TO 10:МЕХТ:00Т 81,32 

POKE &HBFF3,&HD3:POKE &HBFF2,&H44 : GOSUB xBUZZ2:A-USR(CPLX) 
OUT 81,33:ҒОВ I-1 TO 19:NEXT:OUT 81,32 

POKE &HBFF3,&HD2:POKE &HBFF2,&H82:G0SUB xBUZZ2:A-USR(PLX) 
OUT 81,33:FOR I-1 TO 10:NEXT:OUT 81,32 

NEXT 

SC-SC*700:G0SUB xSCORE 

FOR I=1 TO 5:A=USR7(PLX ) : 60508 xCLICK:NEXT 

ES=EC-4 : GOTO *ЕМ2 

xBETH 
IF EC=13 AND YC=13 THEN xJUP1 ELSE xJANKEN 

x JUP1 

FOR Х-Е(ЕС,12%4 TO ЕХЕС,12%17 

A=USRS(Xx256+E(EC。2) J NEXT 

Рі Х=(Ү(ҮС,1)ж256+Ү(ҮС,2)) 

FOR E-1 TO 10 

POKE &HBFF3,&HD4:POKE &HBFF2,&H6:GOSUB xBUZZ2:A-USR(CPLX) 

OUT 81,33:ҒОР 1-1 TO 19:NEXT:OUT 81,32 

POKE &HBFF3,&HD3:POKE &HBFF2,&H44:GOSUB xBUZZ2:A-USR(PLX) 
OUT 81 ,33:FOR 1=1 TO 19:NEXT:OUT 81,32 

POKE &HBFF3,&HD2:POKE &HBFF2,&H82:G6G0SUB xBUZZ2:A-USR(PLX) 
OUT 81,33:ҒОР I-1 TO 19:NEXT:OUT 81,32 

NEXT 

SC1-SC1*700:G6G0SUB xSCORE 

FOR 1=1 TO 5:A=USR6(PLX ) : GDSUB xCLICK:NEXT 

Үб-ҮС-4:60Т0 xMINUS1 

xWINY 

YS=21 : GOSUB xFRONT 

FOR I=1 TO 6:GOSUB *CLICK :A=USR4( Y(21 , 1 )*256+Y( 21 。 2) ) : GOSUB xBUZZ 

B=USR7(E(EC, 1 )*256+E(EC, 2 ) ) : NEXT 

GOSUB xCLICK:BEEP 
IF ST<>4 THEN SC=SC+STx1999 : ST=ST+1 :GOSUB xSCORE:GOTO 1900 

SC=SC+( INT(RNH( 1 )*19 ) +1 )x1999:60SUB xSCORE 

GOTO xENDING 

GOTO xSTART 

*W INE 

ES-Z1:60SUB *FRONT1 

FOR I-1 TO 6:6050В ※CLICK:A=USR5(E( 21 , 1 )x256+E( 21 ,2 ) ) : GOSUB. xBUZZ 

B=USR6( Y( YC, 1 )x256+Y(YC,2) ) : NEXT 

GOSUB *CLICK:BEEP 
IF ST<>4 THEN SC1=SC1+STxX1999:ST=ST+1 :G0SUB xSCORE1:GOTO 1900 

SC1=SC1+(INT(RND( 1 )x19 ) +1 )x1999:GOSUB xSCORE1 

GOTO xENDING 

xCLICK 

BEEP 1:FOR В-1 TO 5:NEXT:BEEP @ : RETURN 

xBUZZ 

FOR B=1 TO 7:ВЕЕР 1:BEEP 0:NEXT:RETURN 

xBUZZ1 

FOR B-1 TO 18:BEEP 1:BEEP 0: NEXT: RETURN 

xBUZZ2 

FOR B=1 TO 23:BEEP 1:ВЕЕР O:NEXT:RETURN 

xFRONT 

FOR M-YC TO YS-1 : SE=1 : 

А-05К1(Ү(М,12ж256%Ү(М,2020:ҒОБ I=1 TO 100:NEXT:GOSUB xCLICK:SC-SC^420 
GOSUB *SCORE: GOSUB ※CHAN:A=USR(Y(M+1 、1 ) ж256+Ү(М+1, 2) ) 
FOR U-1 TO 200:NEXT 

NEXT 

RETURN 

xFRONT1 

FOR M-EC TO ES-1 :SE=1 


A=USR1(E(M,1 )*256+E(M, 2 ) ) :FOR 1=1 TO 100: NEXT:GOSUB \CLICK :SC1 =SC1+29 


GUSUB xSCORE1:GO0SUB ※CHAN1 :A=USR(E(M+1 , 1 )x256+E(M+1 ,2 ) ) 
FOR W=1 TO 200:МЕХТ 

NEXT 

RETURN 

«СНАМ 

MR=YXM+SE,4) MOD 4 


2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2499 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2020 
2030 
2740 
2750 
2060 
2779 
2780 


2090 


2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


IF MR=1 OR UR-3 THEN POKE &HBFF3,&HC5:POKE &HBFF2,&HA4E 


IF MR=2 THEN POKE &HBFF3,&HC6:POKE &HBFF2,&H10 
IF MR=9 THEN POKE &HBFF3,&HCó6:POKE &HBFF2,&HD2 
RETURN 
※ じ HAN1 
MR=Y(M+SE ,4) MOD 4 
IF URSI OR MR=3 THEN POKE &HBFF3,&HC0:POKE &HBFF 2 , &HO 
IF UR-2 THEN POKE &HBFF3,&HCO0:POKE &HBFF2,&HC2 
IF ЫР-0 THEN POKE &HBFF3,&HC1:POKE &HBFF2,&H84 
RETURN 
xSTAGE 
SCREEN 0,3 
LINECO,182-(639,199)2,0,BF 
IF ST=1 THEN POKE &HBFF3,&HCE:POKE &HBFF2,&HC8:RESTORE жСНІМА 
IF ST=2 THEN POKE &HBFF3,&HCF:POKE &HBFF2,&H2A:RESTORE xBRICK 
IF ST=3 THEN POKE &HBFF3,&HCF:POKE &HBFF2,&H80:RESTORE *KANI 
IF ST=4 THEN POKE &HBFF3,&HCF:POKE &HBFF2,&HE2:RESTORE xICE 
FOR Ys8 TO 22 STEP 4 
FOR Х=0: ТО 75 STEP. 4 


` READ A: IF A=1 THEN P=USR(X※256+Y ) 
NEXT 
NEXT 
IF ST=1 THEN POKE &HBFF3,&HCA:POKE &HBFF2,&H9C:AZUSRC38x256*4) 


IF ST=2 THEN POKE &HBFF3,&HCB:POKE &HBFF2,&H5E:A-ZUSRC38x256*4) 


IF ST=3 THEN POKE &HBFF3,&HCC:POKE &HBFF2,&H20:A-USR(38X256*4) 


IF ST=4 THEN POKE &HBFF3,&HCC:POKE &HBFF2,&HE2:AZUSR(C3£'*256*4) 
ЕП Ise1 TD: SECON CRS 22S T4 ECL, 3321 ЖАТ 

POKE &HBFF3,&HCO:POKE &HBFF2,&HC2: А=05Р (4ж256+22) 
POKE &HBFF3,&HC5:POKE &НВЕЕ2, «НДЕ : AZUSR(C?72x256* 22) 
SCREEN 6,0:0N ST GOTO *NN,xTUO,xTHR , xFQUR 

*NN 

RETURN 
Y(6,3)20:Y(10,3220:E(C(6,32z0:EC10, 32 ZO: RETURN 

xTHR 
Y(10,3520:YC( 14,3) 20:E£X10,32z20:EC1À4 , 3220: RETURN 
xFOUR 

Ү(18,30-0:Е(18,32-0:6050В *XTUO: GOSUB  XTHR: RETURN 
*xALPHA 

RESTORE xUD 

FOR І-1 TO 21:READ А,В:Ү(І,1)=А:ҮСІ, 2) =В:МЕХТ 

FOR 1=1 TO 21:READ A,B:E(CI,1202A:ECI,2)0-B:NEXT 

POKE &HBFF3,&HCO:POKE &HBFF2,&HC2:A-USRCIXxX256-*0) 
POKE &HBFF3,&HC5:POKE &HBFF2,&HAE:AZzUSR(S53x256*0) 


LOCATE 33,0:COLOR 5:PRINT "<< GET IT ! »»5':COLOR 7 
LOCATE 5,0 IPRINT  SUDEATE. S, 33PRINT:. ^ 

LOCATE. 57,0; PRENT. ^ * "LOCATE 157 ‚1: PRINT ':':SC-0 
LOCATE 14,0 t PEINT 1 SCORE 3 0” 

LÜLATE 66,0 (PRINT SCORE 1 а” 

RESTORE xPLACE 


FOR I-1 TO 21:READ A,B:V(I,4)=A:E(I,4)=B:NEXT 
RESTORE XxNUMB 

FOR 1=1 TO ?:READ A:DECIO-A:NEXT 

CONSOLE 5,25:RETURN 

*HANDS | 

ON CJ 60508 2810, 28290, 2830 : A=USR( 7х256+0 ) 

ON JA GOSUB 2810, 2820 , 2830: А= 05Р (59ж256+0 ) 

RETURN 

POKE &HBFF3,&HD1:POKE &HBFF2,&H998:RETURN 

POKE &HBFF3,&HDO0:POKE &HBFF2,&H44:RETURN 

POKE &HBFF3,&HD1:POKE &HBFF2,&H6:RETURN 

xSCORE 

COLOR ?:LOCATE 4656,0:PRINT USING "SCORE : #####"; SC 
RETURN 

*SCORE 1 

COLOR ?:LOCATE 14,0:PRINT USING "SCORE : #####";SC1 
RETURN 

UD 

DATA 72,22,641,22,96,22,100,22,48,15,56,;18,61, 18, 72.18 
DATA 72,14,64,14,56,14,48,14,48,10,56,10,64,10, 72,10 
DATA ?2,6,64,6,56,6,48,6,43,4 

DATA 4,22,12; 22,28; 22,;280,22,28,18,20,18,12,198,4,18 
DATA-42,14,12, 14; ~ 14,28,14,28,10,20,10,12,10,4,10 
DATA 4,6,12,6,208,6,28;6,33,4 | 


*CHINA 
DATA まう 上 4 


ЈА F f < 


90 


2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
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DATA C0,00,C2,46,C3,C 4 
DATA C6,10,C7,94,C9,18,C8,56,C9,D 
DATA СА,9С;СВ,5Е,СС,20,СС,Е2 
xTITLE 

SCREEN. 0, 31 6L S 3 


RESTORE жІМТКО 
FOR Y=9 TO 24 STEP 4 
FOR Х=0 TO 76 STEP 4 
READ A 
IF А=1 THEN POKE &HBFF3,&HCF:POKE &HBFF2,&HE2 
IF A22 THEN POKE &HBFF2,&H24 
IF A=3 THEN POKE &HBFF3,&HCE:POKE &HBFF2,&HC8 
IF A-0 THEN 3490 
S-USR(CXx256*Y) 
NEXT 
NEXT 
VIEUC190,202-(485,100) : NINDOUCO,00-(639,199) 
GOSUB 3700 
VIEUC190,7020-(485,1500 : NINDOUCO,02-(639,199)2 :GOSUB 3850 


RESTORE XCHARA 
FOR Ү=2 TO 22 STEP 4 
READ А%,В%:РОКЕ &HBFF3,VAL(C'&h' *A$) :POKE &HBFF2,VALC"'&h' *B$) 
IF Е<21 THEN A-USR(4x256*Y) ELSE A=USR( 72*256+Y ) 
NEXT 
IF Есі THEN 3600 ELSE E=1:GOTO 3550 
FOR X=39 TO 45 STEP 5:READ A$,B$ 
POKE &HBFF3,VAL(C'&h' +АФ) :POKE &HBFF2,VALC"'&h' *B$) 
А-05Е( Хж256%17) 
МЕХТ 
РОКЕ &HBFF3,&HC1: РОКЕ &HBFF2,&H84: AZUSRC23x256*19) 
POKE &HBFF3,&HC6:POKE &HBFF2,&HD2: AZUSRC52x256*192 : GOSUB xBUZZ1:SCREEN 0,0 
GOSUB xCLICK:COLOR 5:1 ОСАТЕ 24,15:PRINT "Copyright (С) 1984" ;5РС(5); “Ву Con 


GOSUB xCLICK:COLOR 4:1 ОСАТЕ 50,22:PRINT "HIT RETURN KEY" 

IF INKEYS«»'' THEN 3680 

IF INKEY ま =CHR ま (13) THEN SCREEN 0,3:CLS 3:RETURN ELSE 3690 
POINT(38,0) 

LINE -5ТЕР(120,0),6:1 INE -5ТЕР(30,20),6ЛІМЕ -5ТЕР(0,20),6 
LINE. -STEPC-30,0) ,6:L INE --5ТЕР(0;з17),6ЗІМЕ: -STEP(-17,-1125,6 
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3730 LINE’ -STEP(-86,9),。6iLINE -STEP(-17。11)。6:LINE -5ТЕР(0,65),6 
3740 LINE -STEP(17,112,6:LINE -STEP(86,9),6:LINE -5ТЕР(17,-11),6 
3750 LINE -STEP(0,-25),6:LINE -STEP(-69,9)。6iLINE -5ТЕР(0,-13),6 
3760 LINE -5ТЕР(90,0),6 ІМЕ -STEP(0,40),6:LINE -STEP( -39 , 29 ) , 6 
3770 LINE -5ТЕР(-120,0),6ЗІ ІМЕ -5ТЕР(-30,-20),6:11МЕ -5ТЕР(0,-70),6 
3780 LINE -5ТЕР(30,-20),6 

3790 POINT(200,0) 

3800 LINE -5ТЕР(170,00,6 ГІМЕ -5ТЕР(0,130,6 ГІМЕ -STEP(-140,0),6 
3810 LINE -STEPC0,35),6:LINE -STEP(100,0),6:LINE -5ТЕР(0,13),6 
3820 LINE -STEP(-100,02,6:LINE -STEP(0O,36D0,6:LINE -STEP(140,0),6 
3830 LINE -STEP(0,132),6:LINE -STEP(-170,0),6:LINE -5ТЕР(0,-1202,6 
3840 POINT(390,0): GOSUB 3880 : RETURN 

3850 РОІМТ(173,0):1 ІМЕ -STEP(30,0),6:LINE -STEP(9,119),6:LINE -STEP(-30, 0), 6 
3869 LINE -STEP(0, -110),6: POINT(223, 9 ) :GUSUB 3880 

3879 RETURN 

3880 LINE -5ТЕР‹( 190,0) ,6:1 ІМЕ -STEP(0,132,6:3LINE -STEP(-80,0),6 
3820 LINE -STEF(0,9750,6:LINE -STEP(C-30,0),6:LINE -STEP(0,-97)2,6 
3900 LINE -STEP(- -80, 0, 6:L INE -STEP (0,713), 6 

3910 RETURN 

3920 xENDING 

3930 FOR A=1 TO 2000:NEXT 

3940 GOSUB xSETT 
3950 IF SC=SC1 THEN ※LUGAR 

3960 IF SC>SC1 THEN xLUGAR2 

3970 UN$-'PUB':UN-0:GOSUB xBUN 

3980 А=05Р5 (23ж256+15) 

3990 FOR 6=1 TO 5 

4000 GOSUB ※BUZZ1 :A=USR2( 52*256+14+6 ) 

4010 NEXT 

4020 FOR A=1 TO 10 

4030 GOSUB ※CLICK :Z=USR5( 23%256+15 ) 

4040 GOSUB xBUZZ: Y-USR6(52x256-*20) 

4050 NEXT 

4060 GOTO xOUARI 

4070 XLUGAR 

4080 ШМФ= "РОВ & CHESPY " :WN=1: GOSUB xBUN 

4090 FOR А-1 TO 10 

4100 GOSUB xCLICK:B-ZUSR5(C23x*256415) 

4110 GOSUB xCLICK:CZUSRAC52x256*15) 

4120 NEXT 

4130 GOTO xOUARI 

4140 ※LUGAR2 

4150 UN$-'CHESPY':UN-Z0:GOSUB *BUN 

4160 А-05Р4(52ж256%15) 

4170 FOR G=1 TO 5 

4180 GOSUB ※BUZZ1 :A=USR3( 23ж256+14+6 ) 

4199 NEXT 

4200 FOR A=1 TO 10 

4210 GOSUB ЖС ІСК :Z=USR4(52X256+ 15 ) . 

4220 GOSUB xBUZZ :Y-USR?(23x256-*20) 

4230 NEXT 

4240 xOUARI 

4250 FOR А=1 ТО 1500:NEXT:ST21:SC-20:SC120:E-0:60TO 160 

4260 ※BUN 

4270 IF UN-1 THEN BN$-'THE UINNERS OF THIS GAME ARE':GOTO 4290 
4280 BN ま も = "THE WINNER OF THIS GAME 15" 

4290 IF UN-1 THEN LOCATE 26,1 ELSE LOCATE 28,1 

4300 FOR 1=1 TO LEN(CBN$) 

4310 A$-MIDSGBN$,1,120:IF А%-" ' THEN PRINT А%;:60Т0 4330 

4320 GOSUB xBUZZ:PRINT А%; 

4330 NEXT 

4340 FOR І-1 TO 1500:NEXT:COLOR 5 

4350 IF LEN(MN ま も )=3 THEN LOCATE 38,15 

4360 IF LEN(UN ま )=6 THEN LOCATE 36,15 

4370 IF LEN(WN$)>? THEN LOCATE 34,15 

4380 GOSUB xCLICK:PRINT UNS 

4390 RETURN 

4400 xSETT 

4410 SCREEN 0,3:CONSOLE 0,25:CLS З 

4420 POKE &HBFF3,&HC1:POKE &HBFF2,&H84:AzUSR(23x256*15) 

4430 POKE &HBFF3,&HC6:POKE &HBFF2,&HD2:A-USR(C52x256*15) 

4440 У1ЕМ(190,20)-(485,100):М1М00Ь(0,02-(639,199):6050В 3700 
4450 VIEUC(190,70)-(485,150)aUINDOU(CO ,00-(639,199) : GOSUB 3850 
4460 SCREEN 0,0 

4470 RETURN 
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ゴゴ 
84d 
aQ 
03 
ЕЕ 
28 
Ja 
Q0 
00 
92 
00 
93 
өз 
ga 
に に 
E 
ag 


ЕР 
99 


02. 


00 
00 
82 
00 
43 
04 
00 
34 
T3 
00 
ゴゴ 
08 
00 
33 
vo 
43 
33 
08 
02 
ER 
00 
03 
ゴゴ 
99 
93 
00 
99 
ヨゴ 
99 
83 
33 
00 
аа 
03 
00 
ша 
08 
те 
ゴゴ 
32 


aJ 


ゴゴ 
00 
03 
34 


99 
に 
99 
00 
と り 
82 
99 
13 
99 
jd 
zt 
TO 
J8 
20 
08 
d 
99 
01 
と り 
99 
30 
23 
00 
20 
02 
00 
ゴゴ 
99 
99 
00 
に で 
ЗЕ 
i3 
20 
と 
23 
99 
id 
00 
a8 
аз 
212 
А» 
に に 
90 
30 
ゴゴ 
00 


CE 
00 
00 
414 
00 
82 
00 
83 
04 
ゴゴ 
04 
03 
TE 
00 
03 
00 
00 
43 
£0 
33 


EG 


00 
ココ 
09 
00 
ゴゴ 
98 
00 
ша 
vo 
34 
NE 
8d 
03 
3a 
9J 
03 
ゴゴ 
00 
63 
09 
a0 
83 
00 
34 
да 
on 
ゴゴ 


20 
00 
ゴゴ 
99 
99 
99 
99 
33 
ゴゴ 
99 
30 
13 
00 
ЯС 
00 
00 
£0 
J3 
と り 
Jt. 
co 
23 
ЗЕ 
99 
9J 
20 
08 
ша 
00 
01 
33 
00 
ゴゴ 
ат 
90 
20 
02 
00 
ゴゴ 
00 
00 
212 
83 
ゴゴ 
30 
00 
33 
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99 
2% 
99 
99 
99 
9 
99 
e 
9 
ая 
£9 
00 
TE 


00 
22) 


ゴゴ 
99 
Jd 
03 
8 と 
04 
j£ 
9 と 
09 
£0 
00 
02 
00 
00 
63 
20 
J ゴ 
04 


.00 


d3 
19 
00 
zd 
ag 
00 
4 
vo 
84 
i3 
00 
өз 
RE 
00 


20 
00 
00 
22 
と り 
99 
32 
20 
に に 
ゴ と 
€O 
13 
90 
00 
аа 
00 
00 
09 
вэ 
26 
04 
00 
30 
36 
99 
3e 
00 
22 
ca 
8d 
ゴゴ 
аа 
90 
jl 
dd 
TO 
9J 
20 
98 
33 
99 
01 
dT 
00 


ід 


ゴゴ 
212 
20 


03 


Jt 


ゴゴ 


aa 


2 
99 
£0 
та 
99 
3l 
31 
аз 
10 
38 
38 
28 
00 
аз 
00 
99 
34 
00 
3 
ca 
08 
30 
ゴゴ 
99 
20 
Өй 
22 
と り 
と 

та 
コメ 
jl 
31 
jt 
と り 
36 
20 
99 
ゴゴ 
00 
99 
34 
83 
30 
ゴゴ 
00 
30 
28 


0293 
9193 
0093 
0369 
0362 
0063 
0262 
0862 
0969 
0669 
0869 
0269 
0969 
0569 
0765 
0863 
0265 
0165 
0063 
0382 
0382 
24853 
0282 
0989 
0989 
0682 
0882 
0482 
0982 
0683 
0789 
0£82 
0282 
0189 
0082 
0322 
0322 
002.2 
0222 
0822 
0929 
8629 
0829 
0229 
0922 
0529 
0729 
0829 


2 

33 
ag 
a0 
44 
00 
82 
03 
42 
03 
ゴゴ 
22 
93 
i3 
08 
a2 
20 
00 
84 
30 
ゴゴ 
03 
ae 
123 
03 
ЗЕ 
33 
08 
00 
43 
vo 
da 
ga 
38 
да 
90 
28 
03 
00 
34 
00 
00 
00 
аа 
ゴゴ 
ゴゴ 
30 
ゴゴ 


oA 
80 
дй 


6 


a3 
9? 


28 


ا < 


42 


93 


02 


ゴロ 
a3 
99 
34 
22 
cû 
a3 
20 
23 
ша 
90 
аз 
T3 
00 
33 
00 
00 
00 
¿Ü 
けり 
да 
00 
nE 
03 
90 
24 
an 
212 
ча 
ap 
à d 
03 
3l 
04 
99 
32 
03 
00 
ЗЕ 
212 
00 
212 
82 
00 
ゴゴ 
00 
ゴゴ 
ЯЗ 


20 
212 
ゴゴ 
99 
99 
33 
03 
20 
33 
00 
je 
T3 
09 
20 
00 
a0 
と り 
20 
28 
32 
00 
ゴゴ 
30 
21% 
28 
20 
00 
s4 
99 
00 
31 
03 
jl 
00 
F3 
30 
00 
に と 
20 
00 
X3 
00 
82 
00 
83 
04 
33 
03 


りり 
de 


28 


PA 


A. 


に 
りり 
23 
00 
212 
an 
e 
33 
30 
aa 
dd 
20 
08 
43 
08 
08 
3: 
08 
Eri 
ゴゴ 
00 
30 
33 
90 
20 
ゴゴ 
99 
€ 0 
TO 
a) 
30 
83 
33 
26 
ゴゴ 
JJ 
212 
22 
00 
00 
ag 
08 
22 
32 
ве 
33 
іб 
212 


ag 


33 


вә 


3.3 


LA 
ag 


ae 


Ja 


0229 
0142 
0022 
02-492 
9392 
в09) 
0292 
0999 
0992 
69J 
989J 
0292 
0992 


GS 


0793 
0693 
0299 
0192 
0093 
0359 
0352 
20639 
6969 
0862 
0953 
06539 
0859 
0263 
0963 
05659 
0/59 
ageso 
0263 
ATSI 
0063 
0473 
ZEA 
0079 
0373 
0879 
0973 
0675 
0873 
a2v3 
0973 
0675 
2478 
2124728 
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0204 
2482 
22128 
04342 
0342 
0032 
0242 
0842 
09-3 
0632 
0832 
02 42 
0939 
0549 
OV 32 
0€ 32 
0c 32 
0133 
0032 
04332 
0332 
0032 
0232 
0832 
0939 
2632 
0832 
02 32 
0932 
08532 
YER 
りこ ゴ J 
0c32 
0T32 
0032 
0302 
0302 
0003 
0303 
9802 
0905 
0603 
0802 
02 02 
0902 
osaa 
orao 
9 と EdJ 
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ared 
0090 
6350 
0350 
aasa 
02560 
ogsa 
0950 
06<0 
0850 
0250 
09с<0 
0550 
orsa 
веса 
ozsa 
otsa 
0050 
дата 
дауа 
oara 
26818 
ogra 
0970 
0670 
ogra 
@¿ va 
0970 
ostra 
orra 
2124748 
octa 
otra 
oora 
0380 
Elle 
даға 
0380 
adcd 
оча 
06ғ0 
двға 
0264 
09<0 
osgedd 
oreda 
9 と と HU 


ду 
9【 
29 
V0 
SG 
33 
SU 
vi 
8v 
00 
00 
03 
8c 
T0 
ду 
00 
03 
20 
33 
33 
03 
аа 
га 
02 
00 
ат 
31 
08 
за 
08 
00 
22 
84 
84 
00 
32 
30 
33 
33 
d ゴ 
38 
¿3 
EZ 
аа 
E 
と り 
98 
OT 
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〇 
〇 
〇 
〇 
〇 
O 
O 
〇 


ER 427» 投げ て 悪人 を 
と っ つか まえ る 銭形 平次 を 題材 に し た 
ゲー ム だ 。 ス トー リー は 、 決 め ゆら れ た だ 
時 間 内 (1000) に 平次 が 投げ た 銭 を 30 
個 ひ ろ い 集め る と いう も の 。 平次 が 投 
げた 銭 を ひろ い 集 め る と いう アイ デア 
は 自分 で も 気に入っ て いる 。 

よく 、 い ま 人 気 の 「 ロ ー ド ラン ナー」 
を 参考 に し て 作っ た の で は 、 と 言わ れ 
る けど 、 実 は ちがう 。「 ド ン キ ー ュ ユン 
グ 」 を 念頭 に お いて 作っ て いる うち に 


こん な ふう に な っ て し まっ だ の で ある 。 


時 間 と の 勝負 も と いう こと も あり 、 ち 
ょ っ と し た 操作 ミス が 、 ゲ ー ム の 進行 
deu ひび いて くさ る 。 


う 少 し 面 数 を ふ や せ ば よかっ た と 、 


А 2 д 
ム も それ ほど むず か し く な い の で 、 € 
れ ぞ れ に オリ ジ ナ ル の 面 を 作っ て 、 こ 
の 「 ぜ に が だ へ いじ 」 の 世界 を も っ と 
広げ て も らい た だ い 。 


階段 や 床 を 上 下 左右 に 「 多 」 を 移動 
きせ て 、「$」 を 制限 時 間 内 に 30 個 集め 
iv (「$」 の 上 に 重 な れ ば 、 自動 的 に 
取っ だ こと に な り ま す )。 移動 中 に い 
ちば ん 外側 の カ べ や 落と し 究 か ら 沙 ち 
ode 左下 すみ の スタ ー ト ライ 
どる れ ま す 。 カ べ や 落と LRO 
IRO 7%, の 操作 は 慎重 に し 
: Ed. 
だ だ 、 ひ と つ だ け 近 道 を 通る 方 法 が 
あり ます 。 そ れ は 面 画 中 央 下 に ある 、 
гу 〔 ゼ ニ ガ タ ヘー ジ 〕 ツマ 」 の すき ま を 
通る 方 法 で す 。 こ の 部 分 に 来 た ら 、 右 
上 に ジャ ング し て くだ さい 。 そ うす る 
L [Ç [ゼニ ガタ ヘー ジ ] マ 」 に 入る 
こと が で きま す 。 で きる だ け 早 く か け 
ぬけ て ゲー ム を 続行 きせ まし ょ う 。 一 
度 ス ター ト に 戻っ た な で らい で あき ら め 
て は いけ ませ ん 。 
スコ アー は 、 1 アク ショ ン ね つき 1 
ポイ ント で す 。 ス コア ー は 低けれ ば 低 
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4② 残 り 時 間 が 少な い / 


ひたすら 動き まわ る だ け な の で 、 使 
用 する キー は 上 [21 ІЗ [5| だ け で す 。 


ҰТА; 


と 回 … 左 上 に ジャ ンプ する 。 
と [5|… 右 上 に ジャ ンプ す る 。 


分 類 


言語 
ЕЗ ЯН 


アク ショ ン ゲ ー ム 
N-BASIC 


4A③ 近 道 し ち ゃ え / 


ぜ に が た へ いじ プロ グラ ムリ スト (N-BAGIC) 


10 СОМ50ОЕ -9,25,0,1:МІПТН80,25:С01.087,0,0:РКІМТ CHR ま ( 12 ) : S=9 : X=1 : Y=23 : =1999 : DR=9 
:6050В 440: COLORA:LINECO,12-(80,250, "Ж" , B:COLOR3:FORI-2TO23:READP$:LOCATE1, I :PRI 

NTP$; : NEXT:COLORS:FORI-0TO25:READXP , YP : LOCATEXP , YP: PRINT'$"; : МЕХТ 

20 COLOR6:B-(&HF301*(80xYO* (40XY) XX ) t4zPEEKCB) : 60508400 : GOSUB390 : LOCATEX , Y t PRINT 
"$" ; 

30 LOCATE10,0:PRINTUSING'SCORE #####' ;S; :LOCATES0,0:PRINT "`$ =";DR;:LOCATE30,0:P 

RINTUSING'TIME C####1"$T 

40 IN=INP(9 ) :「=T-1:G0SUB429 : GOSUB120 : IF IN=2550RIN く >253ANDIN く >247ANDIN< »251ANDIN« 

>251ANDIN く >223ANDIN く >221ANDIN く >215THEN39 

90 BEEP1:BEEP9:S=S+1 : IF IN=253THENGOSUB 1.49 :X=X-1 : J=9 

60 IFIN-247THENGOSUB140 : X=X+ 1 : J=0 

70 IFIN-251THENGOSUB140 : YzY*1: J=9 : FORT=9T03:BEEP1:BEEP9 : NEXT 

80 IFIN-223THENGOSUB140 : YzY-1: J=0:FOR1=0703: BEEP1 :BEEPQ : NEXT 

90 IFIN-221THENGOSUB140: J21:X-2X-1:YzY-1 

100 IFIN-215THENGOSUB140: J22:X-2X*1:YzY-1 

110 GOTO 20 

120 IFPEEK(B+89+49 ) く 33THENBEEP1 : GOSUB140 : GOSUB130 : YY* 1: BEEPO : GOTO20ELSERETURN 

130 IFJ く >9THENONJGOSUB379 , 380 : RETURN: ELSERETURN 

140 LOCATEX,Y:COLOR? : PRINTCHR$(A) ; :* RETURN 

150 DATA' 

%%%%%%” 

160 DATA" % 

%%%%%%” 

170 DATA'. [ы ы ыс сыы с ср ғала Мвт НЕ EET 

%%%%%%” 

180 DATA" сы 


190 DATA' жен 
200 DATA' E ELEL 
210 DATA" айл 日 日 
220 DATA' ШЕШ mm. H 
230 DATA "SH EL H Ен н анын E шш кын шшш 
249 DATA" H H EHE EN 日 H 
250 DATA ` НИН vines H 
260 DATA" $$ DEED A 
270 DATA' H H 
280 DATA" H 
290 DATA" H ESEN 
mama. ` 
300 DATA" NEN /- ЕН БЕ БЕН - ні 

ls ^ 
310 DATA' H H H 

ы” 
320 DATA' Е Е H 
а 日 " 
330 DATA' H H BONESO EE MERE UER DORAS S o Eo MERE 
RE | 
340 DATA" EEN H ШШ A. A. A. A. A. A. A. A. A.A. A... чу чу WE. 
350 DATA' E Woo Ye: jd. Akt T X i 


360 DATA" н | A. A. A. A. A. A. A.A. A. A. A. А А А H H 


370 XzX-1:RETURN 

380 X=X+1:RETURN 

390 ІҒА-135ОРА-228ТНЕМХ-1:Ү-23:А-32:В- (&HF391+(80XY)+(49xY )+X)ELSERETURN 

400 IFA=36THENS=S+29 : A=32 DR=DR+1 : 60508490 :FORI=9T019:BEEP1 :FORK=9T02 :NEXT : BEEP9 
: NEXTELSERETURN 

410 DATA39,5,19,7,13,8, 33, 11,51,8,60,11,73,18,12,12,32,18,36,18,41,18,48,18,49,1 
3,20;13,3,20;3,16,9,5,6,6,3,7, 23 5,54,8,60,8,3,15,27,18,12,4,14,9 

420 IFT-OTHENGOTO 439ELSERETURN 

430 PRINT CHR$C(12D»:CLEAR:GOTO 10 

440 COLOR1:LINE(20,52-(60,200), '' , B:COLOR?7:LOCATE21,6:PRINT ' Ee EAL E оте р i 
eo 097 T -ALOCATERT, Z:PRINT.^ 279 J ST ENAA Dt 7979 上 も コラ 903 :LOCATE2 
СЕНГ ЕМС T E04 793) 7 yi Lo 

450 LOCATE21,9:PRINT ` TIME 2" 227) К GAME OVER 7"2':COLORA:LOCATE21,11:PRINT ' 


c $LOCATE21,12tPRINT. " IC d^ 
460 LOCATE21,13:PRINT " puero Nep AT OUATE Z LEDAS PRENT” 
КАНН Т8 Е $50CATEZE ISI PRINT = So 
470 LOCATE21 ,16:PRINT " し CP IEDCNTEOTSLTTHPRINT > 
v SCOLOR2:LDCATE21,19:PRINT ` Hit any key' 


480 I$-INKEY$:IFIS$-''THENASOELSERETURN 

490 IF DR-30THENDR-0:FORI-STOS-*T/10:BEEP1:S-S*1:LOCATE15,0 : PRINTUSING ' ######"; S: 
BEEPO:NEXT:X-21:Y223:T21000 :FORI-1TO30:COLORS: LOCATE INT(RNDCLO)X78) 1, INT(RND( 1 )*2 
3)+1 :PRINT $ ` :NEXT 

500 RETURN 
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走り 続け ろ // 


〇 
〇 
〇 
〇 
〇 
〇 
O 
O 


限ら れ だ スペース 内 を カ べ に ぶつ か 
ら な いで 、 ど と どれ だ け 長 い 間 走り つづ け 
る こと が で きる か が を 競う ゲー ム だ 。 Н 
分 が 走っ た と ころ は 、 カ で (ピン ク 色 ) 
が で きる の で 、 走 れ ば 走る ほど ス ペー 
ス は 必然 的 に 少な く な っ て ゆ 《。 し か 
直り だ し た 以下 は も うう 修 まる くも を 
ЖТЗ; 止ま る と き は ゲー ム オ ー 
バー の と き な の だ 。 


この ゲー ム は 、 一 種 の サバ イッ シレ ゲ 
ー ム と いっ て も いい だ ろう 。 い か に 長 


い 間 生 き の び て いら れる か が 問題 だ か 
ら だ 。 コ ユー ス の と りか だ が この ゲー ム 
の ポイ ント に な る が 、 キ ー 操 作 も 重要 
な カギ を に ぎっ て いる 。 特に か で ぎわ 
で の キー 操作 の タイ ミン グ が むず か し 


Re 


NON STOP 


い 。 思 いき っ た ゲー ム 展 開 あ し て いか 
な いと 、 高 得点 は 望め な い 。 

スピ ー ド と タイ ミン グ に な れ て くる 
と 、 か な り の スコ アー が 出せ る よう に 
な る と 思う の で 、 プ ログ ラム を 改造 す 
る と いい だ ろう 。 

だ た と えば 、 ス ピー ド を 何 有 段 階 か に 変 
えら れる よう に する と か 、 1 人 用 か ら 
2 人 用 の ゲー ム に する な ど ア イデ ア は 
いろ いろ ある 。 特に 、 2 人 用 に する と 
相手 ほ 上 の か け ひ きも あり 、 お も し ろ さ る 
は 倍増 する は ず だ 


使用 する キー は 、 テ ン キ ー の [21 [4]. 
[6], [8] だ け で す 。 こ の 4 つの キー で 
前 後 左 右 に 動き な が がら 、 で きる だ け 長 
い 時 間 走 り 続 け て くだ さい 。 


Й NON STOP ブロ グラ ムリ スト (N-BABIC) | 


必勝 潜 は た だ ひと つ 。 で きる だ け 大 
回 り を する こと で す 。 左上 すみ か 右 に 
向かっ て スタ ー ト する の で 、 常 に 右 ま 
わり で 方 向 を 変 を えま す 。 カ ベベ と 接し て 
進め る の は スタ ー ト 時 点 だ け な の で 、 
一 歩 手前 で 向き を 変え まし ょ う 。 
分 類 アク ショ ン ゲ ー ム 
言語 N 一 BASIC 


合 ど の くら い 生 き の び られ る か ? 


10 CONSOLE9 , 25,9 ,9:COLOR9 ,9,9:MIDTH89 , 25:РРІМТ СНРФ(12):Х-1:Ү-2:У1-0:Х1-1:5-0:С0 


LOR2:LOCATE 34,10:PRINT 


"AHIT.ES3.key 7: 


20 I$-INKEY$:IFIS$4»'s'ANDISC»'S'THEN2OELSEGOSUB?0O . 


"'W,B:COLOR?:LOCATE10,0:PRI 
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30 UIDTH80,25:PRINTCHR$(C12):COLORA:LINE(CO,12-(80,25), 

NT'SCORE'SPC(9)USING'HI-SCOREHHHHt" ; Н 

40 COLOR3:LOCATEX,Y:PRINT'M' : IFPEEK (&HF301* (BOX (Y* YL) ) € CAQx CY* Y 1) )+(X+X1 ) ) く >9THE 

NBEEP : COLOR2:LOCATE35,10: PRINT'HIT ANY key ;:I$-INPUT$(C1)2: IFS>HTHENH=S : 607010 

50 IF INP(Q)-251THENX1-0 : Y121: GOTOGQELSE IF INP (0 ) =239ТНЕМҮ1=0 :X1=-1:GOT069ELSEIFIN 

Р(0 ) =191ТНЕМҮ1=0 : Х1=1 :GOUT069ELSEIFINP( 1 ) =254ТНЕМХ1=0:Ү1=-1 

60 X=X+X1 : Ү=Ү+Ү1 : ВЕЕР1 :ВЕЕР0:5-5%1:1 ОСАТЕ15,0 : PRINTUSING ' #####" ; 5 ; СОТОДО 

70 CONSOLE1,,,1:COLOR?:UIDTH4A0,25:LOCATE13,10:PRINT'1 PLAYER кеу" 

80 FORI-1TO?:COLORI:IS$-INKEYS:IFIS-CHR$(C13)THENRETURN 

90 LOCATE15,15:PRINT* 0 '13LO0CATE15,16:PRINT" 181 

— '1LOCATE15,18:PRINT* 14 +461" :LOCATE15, 19 : PRINT" — ヘー で 
Ta 

100 LOCATE15,21:PRINT" 


' iLOCATE15, 17: PRINT' — Y r 
:LOCATE15, 20 : PRINT" 


"LOCATE19 ,23:PRINT "HIT С RETURN Mae EXT Oa 


o サイ の 目 だ け が 
o すべ て を 知っ て いる / 


マイ コン _ 
スコ ロク ゲー ム 


ひと むか し 前 まで 、 少 年 少女 雑誌 の 
正月 号 の ふみ く 〈《 く に つい て いな が ス ゴロ 


амес. ツタ まわ し は ね の き 
カル タ と り と な らん て で 正月 の 子ども た 
ちの 遊び の ひと つ だ っ た 。 

し か し 、 最 近 は スゴ ロク と いう こと 
ば を あま り 耳 に し な く な っ だ 。 あ まり 
に も ゲー ム が 単純 すぎ る か ら 子 ども た 
ち に 受け 入れ られ な い の か 、 ス ゴロ ク 
の 楽し る を 忘れ て し まっ だ の か …。 


この 「 マ イコ ンス ゴロ グ ク ゲ ー ム 」 (ў, 


グラ フィ ッ ク 的 に は 、 も う 一 歩 だ と 思 
う が 、 ス ゴロ ク ゲ ー ム の エッ セン ス を 
うま く 抜 き 出し た つも り で ある 。 ュ ユン 
ピュ ー タ が サイ の 目 を 決め る の で 、 へ 
タ な 小細工 も で き な い 。 勝 敗 の わか れ 
め は 、 ま さる に 運 が いい か 悪い か だ 。 派 
手 な ゲー ム が 多い な か で 、 地 味 な が ら 
知ら ず 知 ら ず の うち に 燃え を て くる テー 
プル ゲー ム の 古参 、 ス ゴロ ク ゲ ー ム の 


だ い ご 味 を 十分 に 味わっ て も らい た だ い 。 


Lii 
...... ea 
ежен ёз 
LE 


For PC-8001 by K.084 


A① す ご ろく ゲー ム の 始ま り ~。 


ゲー ム に 参加 で きる 人 数 は 2 一 4 人 
ま て で す 。 ま ず 人 数 を 指定 し 、 名 前 を 
入れ て 下る い (5 文字 まで )。 そ れ が 終 
われ ば 、 い よい よ ゲ ー ム が 始ま り ま す 。 

この 「 マ イコ ンス ゴロ ク ゲ ー ム 」 で 
使用 する キー は ISPACE| バ ー だ け で 
ў. [SPACEI バ ー を お す と サイ コロ 
が 回 り 始 め 、 自 動 的 に 止ま り ま す 。 サ 
イコ ロ の 目 の 数 だ け コ ユマ を 進め る わけ 
で す が 、 コ マ の 移動 は ュ コン ピュ ー タ が 
自動 的 に 行う の で 、 プ レイ ヤー が た だ だ 
[SPACE ド バー を お す だ け ゲー ム は 進 
行 し て ゆき ます 。 

「 ヤ ヤ 」 の 間 に ち ょ うど 止ま っ た 場 
合 は 、 1 回 休み で す 。 

Dk ネ ※」 の 間 に 止 まっ た 場合 は 、 画 
面 下 に 出 て くる メッ セー ジ ど に し た が っ 
て 下 き い 。 メ ッ セ ー ジ に は 「⑨⑰ つ 前 へ 」 
「( の つ 逆 も どり 」「 次 の 人 と ジャ ン ケ ン 
を し て 勝っ た ら 10 前 へ 、 負 けた ら 10 逆 


AA② キ ャ ラク ター も ヨロ コブ プ ブ / 


も と どり 」「 も う 1 回 続け て で きる 」「 ふ 
り だ し に も どれ 」「2 回 休み 」 な ど が あ 
Ж КЫ АТА» Ар, БАТЫП ЫШ ОУ 
何 が 出る か は わか り ま せん 。 

まだ 、 ワ ー プ スポ ッ ト が あり 、 ち ょ 
うと ここ に 止ま る と 近道 を する こと が 
て きま す 。 し か し 、 そ の 逆 ふ あり まず 。 
基本 的 に “上がり” は 、 ち ょ うど の 
目 が 出 た と きだ け な の で 、 ゴ ー ル 寸前 
で 、 大 逆転 勝利 の 可能 性 も 十分 あり ま 
s 
分 類 ボー ド ゲ ー ム 
言語 N-BASIC 


作者 の プロ フィ ー ル 


も つば ぱら 了 ど も だ ちと いつ し よ に 遊 
ペ ぺる ワー ん な ご を 作っ つて いる 、32 炭 の 
マイ コン さん て すり 9。 ノ ロー ナ セード 
を 書く この が ガ き らい な の で 、 ご この プロ グ 
つん も GOSUB 又 グ 多 こ 、 こ て も 見 つづ 
らぶ ぐ な つて し まい まし た だ 。 炊 作 は プラ 
フィ ッ フ を 利用 し た PC 一 8801 用 の ス 
ロン グー ム を 作り だ いと 思い ます 、。 


4③ ま ぁ 先 は 長い 。 あ せら ず イ コー/ 


99 


lE マ ィ コ ンス コ ゴロ ク ゲ ー ム ブロ グラ ムリ スト (N-BASIC) | 


100 
110 CLEAR 1000 

120 CONSOLE 0,25,0,1:UIDTH 40,25:DEFINT A-Z 

130 DIM SA$(6)。HI ま (S),PVK4 )。 РО(96, 4) ,PPCAD ,PRCAD,PN$CAD,PCCAD, PS(4), EX(4),EY(4)。 
RY(4), РА(4),МКФ(4) ,SJ ま (14。 1), Mat 9t Ae T$C37) 


— — — — — — — — — — — — — 
== —————— 


マイ コン 23"02.9"-h ============= қ 


100 


190 

200 В%- СНЕФ (31) +СНКФ (29) +СНЕФ 29) +СНКФ (29) 

210 5А%(1)=" "+B$+" ® "+B$+" 

220 SA$(1)=` "+B$+" Ө “+B キキ +" ` 

230 SA$(2)=" ® "+B$+" "+B$+" @' 

240 SA$(3)="® '+B$+" © "+6%+" Ө" 

250 SA$(4)=" 6 @"+B$+" "+B$+" 6 9. 

260 SA$(5)="@ @©'+B$+" ® '+B‡+" ® 9' 

270 SA$(6)="@ @'`+B++`@ @'+B$+" © Ф" 

280 B2$=B$+CHR$(29)+CHR$(29) 

290 WK$=" —— "+B2$+" | |"+B2$+" | | "+B2$+ | | "+B2$+" — * 

300 НІФ(0 ) =" "+B$+ " "+B$+ " ; 

310 НІФ(1)=* ® "+ВФ+"' 1" +ВФ+" | ` 

320 HI$(2)2'2-4' +В%+ ' NG/' +В" |" 

330 HI*$(3)="N@⁄"+B$+"NI|⁄"+B#$+ 1" 5" 

340 Н1%(4)=" А?! '*B$*'N /"+B$+ "МФИ" 

350 HI$(502'»"2'«B$-'/O.'«B$«'^/ N 

360 ' 

370 RESTORE 400 

380 PO(9。9)=1111:PO(9,4 )=4 

390 FOR I=9 TO 96:FOR J=1 TO 3:READ POCI, Ј) :NEXT:NEXT 

400 DATA 16,18, 

410 DATA 22,17,, r.i ds c INR еа e E 2011,31 18.11, 
Fe 0 ЫЯ ҮйЕЗ 15» A Er T 18,12,» 8,11,88, 
6,12%» дала» dildo du T3. 2519,99 

420 DATA 2,17;, E s, 4, 19, 6,19,98, B 19i, 
IB ITA 12515, 18,19, る Тас 14, % Ы); 
16,15,» 18,15,88, 22.15.5 22315435 240,15; 

430 DATA 24,17,, 2064,19 ,, 285429573 28,19,9, 38,19, ; 
32,19,88, 328719. 325119, 3617: 35 TAS 
32317,88, cc и Ак 28,17,-9, ZEIT. 26,15,-15 

440 DATA 26,13,, Z6y11,i 26,:9,99, Z&.-Ti. 25:097: 
281-5523 30, 5,88, 3254 05195 24, 9,, E Per cu Г» 
348,795, 94,11,). 34,1341, 36,123; ; 36,11; 

450 DATA 36, 9,88, 36, 7,-?, 3B sii 261 3.5 36, 1:2 
34, Fx. 32, 1,-14, 30, T 30, 254 28, Sa 
26. 3; 285-3. йу. M. 20, 3,88, 18, 3, 

460 DATA 16, 3,, 人 12. 3299 18, 34; ae. d 
8, 15, 6, ig 4, 1,, 2, 1,» 2, 3,, 
2, 5,88, 2, 7,» 2, 9,, 4, 2,99, 6, 9, 

470 DATA .8, %,; e Ts 18. ЫК у t L2 Ты 181 755 
16.7, 

480 ” : 

490 RESTORE 510 

500 FOR 1=1 TO 14:FOR J=9 TO 1:READ SJ$CI,J0 :NEXT:NEXT 

510 DATA 8 (ラッ キー) モウ 1 カイ УУУУ PFS J Лу 7"2o,99,0 (ラウ キー) 1Y A2A2XY2e,1, а (ラッ キー) 2Y 


22332.,2,0 (ラリ キー) 39 スス メ 72.2,3,8 (ラッ キー) 4Y 22342.,0,Q0 (ラウ キー) 5Y 21Х722,5,06 (2^2 


“40:19 +" ŞER“ U,-1,0 (2"29) 2У £&"vth"U,-2,0 (2"29) 39 t'v27th"UJ,-3,00 (27279) AY" 97 
ғжюу,-4 

520 DATA 8 (279) SW £t"*27th"U,—-5,0 (t"*-9) 7U2"> ^ オモ ト " リ ー! 1 。-99,@ (チャ ンス !) t" J 
noa wq cR ОТ. カウ タ サ 10 1224,.1799? 10 th" 9 ^ -* カチ = 1 47-2 2 オシ テ 
297942, 86,8 (7714)-2й0А TAR',TT 

590 

600 GOSUB 5000 : GOSUB 6000 

690 * 

700 МК%(102-7%":МК%(2057% :MK$C30-'4':MK$(CAo- $" 

710 PC(1) ғ 3 3PCX(2) = 2 ュ PC(3) = 5 4P じ (4) = る 

720 PS(1) =16 :Р5(2) =18 :PS(3) =29 :PS(4) =22 

730 EX( 1 ) 219 :EX(2) 222 :EX(3) =19 :EX(4) =22 

740 EY(1) = 6 sEY(2). = 6 *EYC(3) ENCA = 8 

750 PV(1) = 1 :PV(2) =19 :PV(3) =199:PV(4 )=1999 

769 RY(1) = 3 :РҮ(2) = 4 :РҮ(3) = 5 :ВҮ(4) = 6 

770 FOR 1=1 TO 4:PPK( 1 )=9:PR( 1 )=9:PA( 1 )=9:NEXT 

780 Аб=0 : EN=9 : TL=0 

990” 

1000 HSS ASIN = ニニ ニニ ニ 

1919 PRINT CHR$( 12); :COLOR 7: 


19020 LOCATE SyStINPUT ウン 77 ТУЕУЭЗАР (2-4) "INI: IF Ж OR МІ24 THEN 1020 
1030 FOR 1=1 TO NI:LOCATE 0,6*2x(I- KENI PRINT 1; 7/2 :COLOR PC CI) PRINT MK$(I); 
COLOR CE PRINT $S 3T A (St9" 37") 4 A PN$CIO: PN$(I)= PN$(I)+'` Фу” : NEXT 
1040 LOCATE 5,15:PRINT "ОК ? (Y/ND :YN$=INPUT$(1):IF YN$-'N' OR YN$-'n' 


THEN 
PRINT CHR$(12);:60TO 1020 


1050 * 

1060 GOSUB 4000 

1070 FOR I=1 TO NI:LOCATE Р5(12,19:С010Б PCCIO:PRINT MK$(IO;:NEXT 

1080 ' 

1090 “----- КС LI I 1 

1100 FOR І-1 TO NI 

1110 IF PA(I)=1 THEN 1440 

1120 IF PR(I)=9 THEN 1150 

1130 PR(I)=PR( 1 )-1 : IF PR( TI )=9 THEN RT$-'B':CL-4 ELSE RT ま も =STRING ま (PR( 1 ) ,MK ま ( 1 ) ) : 
CL=PC( 1 ) 

1140 LOCATE S,RYCIO:COLOR 4:PRINT " ; ¿LOCATE S,RYCIO:COLOR CL:PRINT RT$;:GOT 
O 1440 

1150 LOCATE 28,15:COLOR 4:PRTINT mwa; 

1160 LOCATE 28,15:COLOR PCCIO:PRINT MK$CIO;" ';:COLOR 7:РРІМТ PN$(IO; 

1170 GOSUB 3110 7 

1180  GOSUB 2400 

1190 IF EN=1 THEN 1460: 

1200 68-1 

1210 FOR G-1 TO ME 

1220 IF РА(І2-1 THEN 1440 

1230 GOSUB 3510 

1240 IF PP(T)=9 THEN LOCATE PS(I),19:COLOR A:PRINT "` '5:GOTO 1260 

1250 GOSUB 3200 

1260 IF GB=1 THEN GOSUB 3540 ELSE GOSUB 3570 

1270 IF PA(I)=1 THEN GOSUB 3400:GOTO 1440 

1280 GOSUB 3300 

1290 NEXT 

1300 GB=1 

1310 IF РОСРР(12,320-0 THEN 1440 

1320 IF РОСРР(12,32-99 THEN GOSUB 2010:GOSUB 3100:GOSUB 2700:60Т0 1440 

1330 IF PO(PPK( TI ),3) く >88 THEN GOSUB 2200:60Т0 1440 

1340 AZINTCGRNDC12x142*1 

1350 LOCATE 0,22:PRINT SJ$(A,0);:GOSUB 3050 | 

1360 IF SJ$(A,1)="99" THEN GOSUB 2850:G0SUB 2600:60Т0 1150 

1370 IF SJ$(A,1)="-99" THEN GOSUB 2930 :GOSUB 2300:GO0TO 1440 

1380 IF 5.%(А,12-"88" THEN GOSUB 2850:ME-10:LOCATE 30,24:GOTO 1390 ELSE 1400 
1390 IF INPUT$(1)-'1' THEN GB-1:GOTO 1210 ELSE GB=9:GOTO 1210 

1400 IF SJ$(A,1)="77" THEN GOSUB 2930:6050В 2199:GOTO 1440 

1410 ME=VAL(SJ ま (A, 1) ) 

1420 IF ME<9 THEN ME=ME※-1 :GB=9 :GOSUB 2930: GOSUB 2700:GOSUB 3030 ELSE GOSUB 2 
850:60SUB 2600 

1430 GOTO 1210 

1440 NEXT 

1450 IF EN-0 THEN 1080 

1460 GOSUB 3100 

1470 LOCATE 15,23:COLOR 5:PRINT'GAME OVER';:GOSUB 2850:GOSUB 3060 

1480 LOCATE .5,14:COLOR 7?:PRINT't91h" 2%; 1 ОСАТЕ 5,16 РРІМТ" (Y/N) "%:ҮМФ-ІМРІ/Т%( 
23 

1490 IF YN$«»'N' AND YN$«»'n' THEN 700 

1500 PRINT CHR$(12);:GO0SUB 2930:G0SUB 2870 1 

1510 FOR І-1 TO 13:LOCATE 10+(1-1),10:PRINT MID ま (" オリ カレ サマ *,1,12$; :60SUB 281 


0:6050В 3010:NEXT 


1520 


FOR I-1 TO 14:LOCATE 10*(I-120,13:PRINT MID ま ("マタ アソ ン テ " ネ ',I1,10;:GOSUB 28 


19:GUSUB 3010:NEXT 


1530 PRINT CHR$(11); 

1540 END 

19990. ° 

2000 "ニニ ニニ = SUB エニ ェ ュ ニニ 

2010 '----- 124 ヤス ミ ----- 

2020 PRCIOZ1:LOCATE 5,15:COLOR 7:РРІМТ "1 カイ ヤス ミ " 


2030 
2040 
2050 
2100 
2110 
2120 
2130 
2140 
2200 
2210 
2220 
2230 
2240 
2250 
2300 
2310 
2320 
2330 
2340 
2400 


GOSUB 2930:G0SUB 3050 
LOCATE 5,RYCIO:COLOR PCCIO:PRINT MK$(IO;:GOSUB 2810 


RETURN 
"ーーーーー 2 カイ ヤス ミ ----- 
PR( { )=2:LOCATE 5,15:COLOR ?:PRINT "2 カイ P23"; 


GOSUB 2930 : GOSUB 3050 
LOCATE 5,RYCIO:COLOR PCCIO:PRINT MK$(IO;MK$(CIO;:GOSUB 2810 
RETURN 
———Á 7-7° ーーーーー 
IF РОСРР(1),3)<0 THEN GOSUB 2879:GOSUB 2700 ELSE GOSUB 2859:G0SUB 2600 
GOSUB 3510: GOSUB 3200 
PPCIDZPPCIO*(CPOCPPCIO,30) 
GOSUB 3590:60SUB 3300 
RETURN 
ae А ER E DTS 
GOSUB 2879:G0SUB 3939:GOSUB 2879:G0SUB 2700:GOSUB 2700 
GOSUB 3510:60SUB 3200: MP ren 9:LOCATE PSCIO,19:COLOR PCCIO:PRINT MK$(IO; 
RETURN 
END 


リス ト 続 く 


101 


2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
| 2500 
2510 
2520 


МЕ=РМ№О( 1 ) : ҮМФ=ІМКЕҮФ:ІЕ YN$<>" ' AND ҮМФ<> "Е" AND YN$<>"e" THEN 2410 
IF YN$-'E' OR YN$-'e' THEN EN=1 :RETURN : 

FOR MT=9 TO 20 

COLOR 7:ММ-МЕ 

ME=INT(RND( 1 )x6)+1:IF MM=ME THEN 2450 ELSE IF ME-1 THEN COLOR 2 
LOCATE 29,10:PRINT SA$CME); 

BEEP 1:FOR BP=9 TO 5:NEXT:BEEP 9 

NEXT | 

FOR B0-100 TO 2100 STEP 400 

COLOR 7:ММ-МЕ 

ME=INT(RND(1)xé)+1:IF MM=ME THEN 2510 ELSE IF ME-1 THEN COLOR 2 

ВЕЕР 1:ҒОР B1=9 TO 10:NEXT:BEEP 9:LOCATE 29,10:PRINT 5АФ(МЕ);:ҒОК В2-0 TO B ` 


Q:NEXT 


2530 
2540 
2600 
2610 
2620 
2630 
. 2640 
2650 
2700 
2710 
2720 
2730 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


Фоо 6 
Фо о 0 


2880 
2890 


Q:NEXT 


2900 
2910 
2920 
2930 
2940 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3100 
3110 
3120 
3130 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3300 
. 3310 


3020: 


3320 
3330 
3340 


LOR 7 


3350 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3500 
3510 
3520 


102 


МЕХТ 


"ーーーーー ヒト CY 9*4) ----- 

FOR НТ-1 TO 3:HX=19-3x(HT-1 ) :HY=15-(HT-1 ) LOCATE HX,HY:PRINT HI$(HT); 
GOSUB 2830:00508 3040:LOCATE HX,HY:PRINT HIS$(0);:NEXT 

LOCATE 4,15:PRINT HI$(4);:GOSUB 2910 

GOSUB 3050:LOCATE 4,15:PRINT HI$(0); 


ーーーーー ヒト ( カ " ク ) ----- 
LOCATE 10,15:PRINT HI$( 


1 OSUB 2910:6050В 3040 
LOCATE 10,15:PRINT HI$(5 


2::6 
)::60SUB 2910:G0SUB 3050:LOCATE 10,15:PRINT HI$(0); 


BEEP 1:FOR B1=9 TO 50:МЕХТ:ВЕЕР 0 

RETURN “К° У 
FOR B9=1 TO 3:BEEP 1:FOR В1=0 TO 100:NEXT:BEEP 0:GOSUB 3010 :МЕХТ 

RETURN “К° 96° 56° У 

FOR В0-1 TO 10:BEEP 1:FOR B1=9 TO 75:МЕХТ:ВЕЕР 9:NEXT 

RETORN "ET we bw" CT er | 
FOR B9=1 TO 2:0UT81,33:FOR В1-0 TO 100:NEXT:0UT81,70:FOR B1-0 TO 300:ВЕЕР 1 


ВЕЕР 0:NEXT:OUT81,69:0UT81,32:NEXT 


RETURN “7%--9" 79--9*9 79--9% | 
FOR B0-1 TO 39:OUT81 , 33: GO0SUB 2810:0UT81,32:60SUB 2810:NEXT:FOR В1=0 TO 100 


RETURN А ЕЗ で いこ の 

FOR В0-0 TO 5:ҒОР В1-0 TO 3:BEEP 1:+:::::::::::::::::::В 
RETURN 77% 

FOR B9=9 TO 25:FOR B1=9 TO 10:BEEP 1:::::::::::::::::::ВЕЕР Q : NEXT: NEXT 
RETURN 77“- 

i м ri МА PENDET 

FOR M9=9 TO 10: NEXT: RETURN 

FOR M9=9 TO 250:NEXT:RETURN 

FOR М0-0 TO  500:NEXT:RETURN 

FOR M9=9 ТО 1000:NEXT:RETURN 

FOR M9=9 TO 2000:NEXT:RETURN 

FOR M9=9 TO 3000:NEXT:RETURN 


EEP 0:МЕХТ:МЕХТ 


COLOR 4:FOR SS=13 TO 17:LOCATE 4,SS:PRINT SPACE$(9);:NEXT 
FOR 55-22 TO 23:LOCATE 0,SS:PRINT SPACE$(38); :NEXT:COLOR 7 
LOCATE 9,24:PRINT SPACE$(37);:RETURN * 77 & 59 

ceo tng $P o D FEE 

IF РО(РР(1),42-0 THEN MK$-' ':CL-4:GOTO 3260 

IF PO(PP(1),4)>1 THEN MK$-'9':CL-7:GOTO 3260 


FOR Q-1 TO 4 


IF (РО(РР(1),0) ¥ 19^(Q-1 ) ) MOD 10-1 THEN MK$-MK$(Q):CL-PC(CQ) 
NEXT 
LOCATE PO(PPK({ ),1 ) ,PO(PP( 1 ) ,2):COLOR CL:PRINT MK$;:COLOR 7 


Pf TM M. gi tei 
IF PP(I)=9 THEN LOCATE PSCI),19:COLOR PCCIO:PRINT MK$(CIO;:GOSUB 2819:GOSUB 
COLOR 7:60Т70 3350 ' 
IF PO(PP( 1 ),4)=1 THEN CL ェ PC( 1 ) : MK ま =MK ま ( [ ):GOTO 3340 
IF РО(РР(12,4221 THEN Сі-? : MK も = " @" 
LOCATE PO(PPK1{ ) , 1 ) ,。PO(PP( 1 ) ,2) :COLOR CL:PRINT MK$;:GOSUB 2819:GOSUB 3020:С0 


IB M алдыда‏ ا 

GOSUB 2890 

AG-AG*1:IF AG-NI THEN EN-1 

LOCATE 16,7:COLOR 4:PRINT' 7; 

LOCATE EX( 1 ) ,EY( 1 ):COLOR PCCIO:PRINT MK$CIO;:GOSUB 2819:G0SUB 3040 
LOCATE 5,14:COLOR 3:PRINT "オメ テト ウ 9" ; :GOSUB 2850 

LOCATE 5,16:COLOR PCCIO:PRINT MK$(IO;'92 75"9';:GOSUB 2859:GOSUB 3060 


a ae ' 
PO(PP( 1 ) , 9 )=PO(PP( 1 ) , 9 ) -PV( { ) : PO(PP( 1 ) ,4 )=PO(PP(T ),4 )-1 
RETURN : 


3930 “ 
3540 PP(I)=PP(I)+1:IF PP(CIOX»96 THEN 3590 

3550 IF G-ME THEN PA(CIO-1:GO0TO 3600 ELSE GB=9:GOTO 3590 

3560 ” 

3570 PPCID-PPCIO-1 : IF PP(IO-0 THEN 3600 

35808 .' | 
3590 PO(PP(I),0@)=PO(PP(I),@)+PV(I):PO(PP(I),4)=PO(PP(I),4)+1 
3699 RETURN 

4000 '----- B $2 = 

4010 COLOR 4:PRINT CHR$(12); 

4020 PRINT" 
4030 PRINT | | | Www | | | 
4040 РРІМТ" 

4050 PRINT Ш БЕНЕН | + + | 
4060 PRINT” ШЕ 
4070 PRINT' ШШ ШШШ БҰНЫҢ 
4080 PRINT” MENi SM БЕНЕН 


Hh d. | 


4090 PRINT EE ШШЕ | | | > 
4100 PRINT" Wa awa. БЕНЕН 
4110 PRINT + + 


4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 КНЕУ и 
4210 PRINT | x x | | | m ШП | | | x x | m 
4220 PRINT ` m 

4230 PRINT” 

4240 LOCATE 28,9:COLOR 7?:PRINT ШКФ 
4250 LOCATE 18,5:PRINT '7 5"U':;:LOCATE 17,21:PRINT '792"5'; 

4260 LOCATE 29,10:PRINT ЅАФ( 6); 

4270 COLOR 2:1 ОСАТЕ 15,1:PRINT "スコ" ロク" «COLOR. 7 

4280 RETURN 

5000 '----- タイ トル ーーーーー 

5010 COLOR 7?7:PRINT CHR$(12)2);:RESTORE 5120 

3020 FOR B0-0 TO 37:READ Т7%(В0):МЕХТ | 

3030 T=INT(RND( 1 )x38 ) : IF TL(I)=0 THEN TLCIOs1:TL-TL*1 ELSE 503 

5040 FOR J=9 TO 22:TP$zMIDS$CT$CIO,J-1,12:LOCATE Ж 

5050 IF TP$-'8' THEN J-22:GO0TO 5070 ELSE IF TP$-'Q' THEN 5070 

5060 COLOR VAL(CTP$):PRINT "@";:GOSUB 2810 

5070 NEXT 

5080 IF TL く >38 THEN 5030 ELSE GOSUB 3040 | 

5090 COLOR 3:FOR І-7 TO 27:LOCATE I,24:PRINT MID$( "For PC-8001 by K.084',I-6,1) 
$3 3: GOSUB 2810:NEXT:COLOR 7 

5100 GOSUB 3060:GOSUB 3050 

5110 RETURN 

5120 DATA 00000078, 0000000778, 00000007700070000000007, 00000007700707000000007 
, 07000007700707000000070, 0077777777777777777778, 007777777777777777778, 000000 
0778, 0000000778, 0000000778, 0000000778 

5138 DATA 0000000000000002228, 00000020000000200028, 000002000000020000028, 0000 
220000000000000228, 0000220000000000000228, 0000220000000000000228,. 000022000000 
0000000228, 0000220000000000000228,0000022002000000000228, 000200222000000000028 
5140 DATA 020220028, 0220000000600000600068, 20000000006600060000068, 0000000000 
6600660000068, 00000000006606060000068, 99999999996669969999968 , 000000000066000 
0666668, 000000000060000006668 

5150 DATA 0000000000044448, 00000000004444448, 000000000440000448, 0000000044000 
000448, 00000004400000000448, a00000440000000000448, 00000440000000000000444,000 
04400000000000000444, 00444000000000000000044 

6000 “----- セツ メイ ----- 

6010 PRINT CHR ま (12) 』:COLOR 7 

6020 FOR І-0 TO 38:LOCATE I,0:PRINT '9";:LOCATE I,23:PRINT '9';:NEXT. 

6030 FOR І-0 TO 23:LOCATE Q,I:PRINT "Ф": : 1 ОСАТЕ 38,I:PRINT "Ф": : NEXT 

6040 COLOR 6:1 ОСАТЕ 12,2:PRINT "マイ コン スコ "ロク "bh" $ :GOSUB 2850:GOSUB 3050 

6050 COLOR 3:RESTORE 6100: 

6060. FOR І-5 TO 19 STEP 2:READ TP$:LOCATE 5,I:PRINT TP$;:GOSUB 2830:6050В 3050:6 
OSUB 3050:МЕХТ 

6070 COLOR S:LOCATE 10,22:PRINT '--- HIT ANY KEY ---'; 

6080 IF INKEY$-''" THEN 6080 

6090 RETURN { 

6100 DATA @ 175 ナツ カラ モイ 2177 DA TNE UA O 739) 59? 4 マン 37" イリ ショ ニ アゾ A" マス 。。G チカ ミチ 
ухе DY 79; O 生み T),0 жж J アイ タ "ー トマ ゅ タラ シタ Y o» Q 
TASA ‚29° - 2B 43 29*94.,,8 - S430 A SPACE キー テ " ス 。。@ 37"A アカ " リ メ "57 Let” s Go! 
6120 'EOP 

6130 “ 


| x x 


Ба = LI - LI m LJ ЕЗ 
we ге Фе гә ve Фо 99 we €^ we же ФФ ее Фе e we Фе ғә ve тә 99 ve 
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OQ 0 0- GOO no 


楽し く お 総 描き し よう 


芸術 の 秋 と も な る と 、 ふ だ ん 絵心 の 
な い 人 で も 、 ち ょ っ と 芸術 家 を 気取っ 
て みた だ たく な る も の 。 そん な と き に は 、 
な ん と いっ て も お 絵描き ツール 。 

最近 市 販 さ れ て い る ツー ル に は 、 図 

形 の 移動 や 切り 抜き 、 ペン タッ チ も 線 
描き か ら エ アブ ラ シ ま で 、 い ろ い Z/ 変 
えら れ て バラ エ テ ィ ー に 富ん で いる も 
の が 多い 。 

それ に 比べ る と この 「PICTURE 
TOOL」 は 、 少 々 シン グル と 思え る 
か も しれ な い が 、 ツ ー ル の 入門 編 と し 
て は 、 楽 し め り る は ず 。 ド ッ ト を 1 つ ず 
つ 移 動き せ 、C RT 上 に 絵 を 描い て い 
6 も の だ 。 


遊び 方 


プロ グラ ム を 入力 、RUN す る と 、 メ 
ニュ ー 面 画 に キー 操作 お よび カラ ー ナ 
ン バ ー、 カ ラー モー ド な ど が 表示 され 
ます 。 画 面 下 に 「COLOR MODE= 
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PC-8001mk II 


秋 は だ れ で も 芸術 家 。 
ティ スプ レイ を キャ ン バ ズ に 。 


OTN 


PICTURE 
TOOL 


? 」 と 聞い て きま す の で 、 カ ラー モー 


ド (0 一 3) の いずれ か を 選択 し ます 
( 表 1 参照 )。 続い て 「SELECT СО 
LOR) GERE), 
COLOR (t> 2 Фа), NUMBER 
OF DOT X, Y, (Bim K š Š). 
が 表示 きれ ます の て 順次 入力 し て いき 
27, 

COLOR PATTERN(Y/N) ЕШ 
いて きま す の で 、 パ ター ン が 見 だ い 場 
tx. [Y bt y 式 一 を 入力 し ます 。 
見 る 必要 の な いと き は 、[N pln ]< 
ー を 入力 すれ ば 、 途 中 で パタ ー ン の 表 
示 は で き な く な り ま す 。 

パパ ターン 表示 が 終わ る と 、「CLEA 
R(Y ン N) 」 と 表示 る れる の で 、 前 に 
描か れ て いた 絵 を 消す に は 「Y」 キ ー、 
前 に 描い て いた 絵 の 続き を 描く 場合 に 
は 「N」 キ ー を 入力 し ます 。 あ と は テ 
ン キ ー の 操作 に よっ て 絵 が 描け る わけ 
ка, 


操作 方 法 


ドッ ト の 移動 は 、 [5] を 除い た 他 の テ 


0*20 «SELECT COLOR 


2… ミ ドリ 3-- SELECT COLOR 


"BACKGROUND 


ン キ ー で 行い ます 。 

[F1 | キー は 、 ピ クセ ル の 移動 、 ド ッ 
ト の 移動 、 ま た 描い た 線 を 消す こと が 
で きま す 。 

[F2 | キー は 、PEN。 ド ッ ト の 移動 
し た 線 を 描い て いき ます 。 
.[F3]&—iX, PAINT. 線 で 囲ん だ 
範囲 内 を 塗り つぶ し た いと き に 使い ま 
す 。「 キ ョ ウ カ イシ ョ ク = ? 」「SEL 
ECT COLOR = ? 」 と 聞い て きま す 
ос, 境界 色 、 塗 り た い 色 を 入力 し て 
いき ます 。 そ の と き 必 ず ド ッ ト の 色 は 、 
塗る 色 以外 に 変え て お きま す 。 

Fy koo, С. Uh E| THE 
られ 、, カ ラー ナン バー 0 1, 2, 3 
に 対応 し て いま す (し か し 、 これ は 4 
色 カ ラー モー ド を 選択 し た 場合 に 限り 
$7. 

[Е4 | キー は 、 チ ュ ウ カン ショ ンク 、 
"SELECT COLOR(1)、(2)」 と 
表示 る れる の て 、 2 色 選 ぶ と 、 2 色 
を 交互 に し た 中 間 色 で 塗る こと が で 
2217. 

[F5 | キー は 、PAINT( 2 )。 カ ラー パ 
ター ン の P( 2 ) (カラ ー ペ ー ジ の 写真 
参照 ) で 塗っ て いき ます 。 を その 場合 、 
前 も っ て [F3] で 塗り た い 部 分 を 塗り つ 
ぶし て お く 必 要 が あり ます 。 次 に 「SE 
LECT COLOR= ? 」 と 表示 きれ ま 
す の で 、 リ スト に ある カラ ー 2 620) 
び ま す 。START POINT (X, Y). 
END POINT (X, Y) と 開い て き 


ます の で 塗り た い 部 分 を 入力 し ます 。 Шат аз-ақ POST. 
[S| キー を お す と 、 カラ ー パ ター ン P ます 。 画 面 に 表示 され て いる 絵 は 、 い 分類 ツー ル 


(3 ) に 示 る れる パタ ー ン で 塗っ て いき っ た ん 消え ます が 、 裏 RAM へ 入っ て 言語 N 一 80BASIC 


ます 。 入力 方 法 は 、P( 2 ) と 同様 で す 。 AM 


00 h 


| 10 / XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
PICTURE GRAPHIC TOOL 
1983% ҮН 22H 


Copyright by 
N.HAGIYA 


X ж ж ж OK ж ж 


x 
x 
x 
x 
x 
x 
x 
x 
x 


! 90 x 

| 100 ^OO00000000000OOOOOOOOOOOOOOCOCOC XXX 

| 110 СМО CLS1:KEY1,'m':KEY2, 'p':KEY3, “а :КЕҮД, "c :KEYS, °1" 

120 CONSOLE9,25,0,1:UIDTH80,25:G0TO 2080 

130 505082150 

140 LOCATES, 1: COLORA: PRINT 0000000070 ' :LOCATES, 2: PRINT ` "Ve':LOCATES, ,2: COLOR? :PRIN 

T. O-G:T ':LOCATE13,2: COLOR4: PRINT "Ф" :LOCATES, 3:PRINT " 

150 LOCATE5,5:COLOR6:PRINT "AAA COLOR MODE 444':LOCATES,7:COLOR?:PRINT '0---t7/27n 
Lk" LOCATES, &:PRINT "1・・・ ア トリ ヒド ュー ト カラ ー モー ト *" ОСАТЕЅ,9:РРІМТ "の 2・・・4 シ ョ ク カラ ー モー ト 

"(12':LOCATE5,10:PRINT “3: · · 4537 カラ ー t-"(2)" 

160 LOCATES,12:COLORS:PRINT “%Ф%Ф% COLOR CODE €99':COLOR?7:LOCATES5,14:PRINT "9・・・2H 

"teLOCATE5,15:PRINT "1: · · 77" :1 ОСАТЕ5Ѕ,16:РРІМТ "2: · · 7)" :1 ОСАТЕ5,17:РРІМТ "3・・・ マ セ " ッ 

дч" 

170 LOCATES,18:PRINT "4: · хк" у" :_ОСАТЕ5,19:РВІМТ "5: · 572" :_ОСАТЕ5Ѕ, 20 :РВІМТ "6: · 

+00" :LOCATES,21:PRINT "7: · 50" 

180 LOCATE30,2:COLOR3:PRINT "Фф ヒッ クセ ル イト"9 Ф" : СОГ ОВТ: ОСАТЕЗӘ,4:РВІМТ " — r 

жақы ЫР S Ж ЕД 

190 LOCATE30,5:PRINT rA 18 | 191" : LOCATESO, 6:PRINT ' — — m "*LOCATE30,7? 

:PRINT ` os Io ut :LOCATE30,8:PRINT r3 r3 ーー :LOCATE30,9:PRINT "141—1 

"لا لا — ' 5|—l61':LOCATE30,10:PRINT‏ 

200 LOCATE30,11:PRINT ` у оба. Ч "eLOCATE30,12:PRINT " — r3 г r^ L OCR 

TE30,13:PRINT "111 12 | 13 1 |31" iLOCATE39 ,14:PRINT " — لا لا لا‎ 

210 LOCATE30,15:PRINT " — r3 rm 

220 LOCATE25,16:PRINT "COLOR IO | 11.1 [217 

"نا لا — " LOCATE30,17:PRINT‏ 230 

240 LOCATE30,18:COLOR?:PRINT "Гт1%::Е?2Рр) ХК" " :1 ОСАТЕЗӘ,19:РРІМТ "FLp]・・・ カ キ コ ゴミ" +L 

OCATE30,21:PRINT 'Ls3:::7"-9 / t-7"':LOCATE30,20:PRINT "上 Fa]・・・ ヘ "イント" 

250 LOCATE54,2:COLOR2:PRINT ` アト リヒ "ュー ト カラ ー t-h" 44':ICOLOR?7:LOCATES55,4:PRINT 

'8:-:20':LOCATES5,5:PRINT "1・・・SELECT COLOR" 

260 LOCATES4,7?:COLOR2:PRINT ‘ФФ 4537 カラ ー E- "(1) 44M':COLOR?:LOCATES5,9:PRINT " 

0:--20':LOCATES55,10:PRINT '1:--732':LOCATES55,11:PRINT "2・・・ ミ トド リリ" 5LOCATE55 。 12:PRIN 

T "3・・・SELECTCOLOR" 

270 LOCATES4,14:COLOR2:PRINT "ФФ 4 ショ ク カラ ー モ ー ト "(2) 4M':COLOR?7:LOCATE55,16:PRINT 

'0Q---TYX':LOCATES5,17:PRINT '1:::t£"»2"":LOCATES5,18:PRINT "2・・・ シ アン " :LOCATE55 , 19: 

PRINT "4・・・SELECTCOLOR" 

280 LOCATE22,22:COLOR6:PRINT '--- Please input ---':COLOR? 

290 '——color modes 

300 CUNSOLE22 。 25 

310 LOCATE23,23: INPUT "COLOR MODE=" А: ІҒС(А<ОООРСА>ЗОТНЕМЗ10 

320 LOCATE23,24:INPUT'SELECT COLORz';B:IF(B«X0DORCB»7) THEN320 


КОЛЛ үү үүтү 


Келетін" 
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330 CMD SCREEN A,9,B | | 
340 LOCATE23,23:1NPUT'BACKGROUND COLOR-';BC:IF(BC«0)O0RCBC»4) THEN340 
350 LOCATE23,24:1NPUT'NUMBER OF DOT X,Y = ";Х0,Ү0 
360 IFA=90RA=1THENM=2ELSEN=1 
370 LOCATE23,24:PRINT ‘COLOR PATTERN (Y/N) ';CPS$ 
380 CP$-INKEY$: IFCP$=" ' THEN380 
390 IF(CP$-'n')OR(CP$- 'N'O)THENGOTO 410 
` 400 GOSUB1810:GO0SUB2170 : GOSUB2190 
410 C-1:LOCATE23,24:PRINT "CLEAR (Y/N) ';V$ 
420 У%-ІМКЕҮФ:ІҒУФ-""ТНЕМ420 
430 IF(V$="n")OR(V$="N" )THEN460 
440 CMD COLOR,BC:CMD CLS2 
450 GOTO 470 
460 POKE&HC109,&HEB:S4-0:1-USR1(SX):CMD CLS1 
470 IFBC=CTHENC=C+1 
480 IF(B=7)AND(BC=3 )THENCR=1ELSECR=7 
490 Х2-(320%М-Х02Ұ2:Х3-320жМ-Х2:Ү2-(200-Ү02Ұ2:ҮЗ-200-Ү2:СМО LINE(X2,Y2-1)-(X3, Y3 
-1),C,B:X1-X242 :Y1=Y2+2:COLORCR 
500 “ニー ヒ * ク セル イト "ウーーー 
510 GOSUB1379 
520 А%-ІМКЕҮ% 
530 IF A$-'' THEN 520 


540 IF A$-'1' THEN GOSUB 1390 
550 IF A$-'2' THEN GOSUB 1400 
560 IF A$-'3' THEN GOSUB 1410 
570 IF A$-'4' THEN GOSUB 1420 
580 IF A$-'5' THEN GOSUB 1430 
590 IF A$-'6' THEN GOSUB 1440 
600 IF A$-'7' THEN GOSUB 1450 
610 IF A$-'8' THEN GOSUB 1460 
620 IF A$-'9' THEN GOSUB 1470 
630 IF A$-'p' THEN 770 

640 IF A$-'q' THEN GOSUB 2230 
650 IF A$-'0' THEN C=9:GOTO 520 
660 IF A$-',' THEN C=1:GOTO 520 
670 IF A$-'.' THEN C=2:GOTO 520 
680 IF A$-'-' THEN C=3:GOTO 520 
690 IF A$-'a' THEN 1020 

700 IF A$-'1' THEN 1480 

710 IF A$-'s' THEN 1640 

720 IF A$-'c' ТНЕМ1090 

730 IF A$-'e' THEN 2360 


740 СМО PSET(CX1,Y1),C 

750 CMD PRESET(X2,Y2) 

760 GOTO 520 

770 "ーー カキ コミ ーー 

780 GOSUB1370 

790 A2$-INKEY$:IF A2$-'' THEN 790 
800 IF A2$-2'1' THEN GOSUB 1390 


810 IF A2$-'2' THEN GOSUB 1400 
820 IF A2$-'3' THEN GOSUB 1410 
830 IF A2$-'4' THEN GOSUB 1420 
840 IF A2$-'5' THEN GOSUB 1430 
850 IF A2$-'6' THEN GOSUB 1440 
860 IF А2%-"7" THEN GOSUB 1450 
870 IF A2$-'8' THEN GOSUB 1460 
880 IF А2%-"9" THEN GOSUB 1470 
890 IF А2%-"1" THEN 1480 

900 IF A2$-2's' THEN 1640 

910 IF A2$-'0' THEN C-0:GOTO 790 
920 IF A2$-',' THEN C-1:60TO 790 
930 IF A2$-2'.' THEN С-2:60Т0 790 
940 IF A2$-2'-' THEN С-3:60Т0 790 
950 IF A2$-'a' THEN 1020 

960 IF A2$-'c' THEN 1090 

レガ オメ” IF A2$-'m' ТНЕМ500 


980 IF. А2%-"а" THEN 605082230 
990 IF A2$-'e' THEN 2360 

1000 CMD PSET (X1,Y1),C 

1010 GOTO 790 

1020. “== 2 ヌル ニーー 
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1030 CMD CLS1 

1040 ІМРОТ ‘+3951 237z';CA 

1050 INPUT'SELECT COLOR-';CB 

1060 CMD CLS1 

1070 СМО PAINT(X1,Y12,CB,CA 

1080 GOTO 500 

1090 '——3199» ショ クニ ーー 

1100 СМО CLS1:INPUT'SELECT COLOR (1)';C1 
1118: INPUT SELECT COLOR C2) "3C2 

1120 CMD CLS1 :C0=C1 :MIDTH89 

1130 E$-INKEY$:IFES$-''THEN1130 

1140 IFE$-'p'THEN?70O 

1150 IFE$-'q'THENGOSUB2230 

1160 IFE$-'m'THENS500 

1170 IFE$-'a'THEN1020 

1180 IFE$-'I'THEN1480 

1190 IFE$-2's'THEN1640 

1200 IFE$-'e'THEN2360 

1210 IFE$-'1'THENGOSUB 1390 

1220 IFE$-'2'THENGOSUB 1400 

1230 IFE$-'3'THENGOSUB 1410 

1240 IFE$-'4A'THENGOSUB 1420 

1250 IFE$-'S'THENGOSUB 1430 

1260 IFE$-'6'THENGOSUB 1440 

1270 IFE$-'7'THENGOSUB 1450 

1280 ІҒЕ%-"8"ТНЕМб050В 1460 

1290 IFE$-'9'THENGOSUB 1470 

2990 CMO PSETCX1, Y12,CO 

1310 IFCO=C1THENC0=C2ELSEC0=C1 

1320 GOTO 1130 

1490 СМО PSETCX1,Y10,CO 

.1340 IFCO=C1THENC0=C2ELSECO=C1 

1350 GOTO 1130 

1360 =" メン ーー 

1370 CMD CLS1:CONSOLE22,25,0,1:PRINT "上 ff・1 コ ・・・ ヒ ? ッ クセ ルー イト" 9 [ff・2]・・・PEN [上 f・3]・・・PA1 
МТ(1) [ff・4]・・・ チ ュ 9 カ ン 232':PRINT "上 f・5]・・・PAINT(2) [上 S]・・・PAINT(3) [上 Q]・・・COLOR PATT 
ERN" | | 
1380 RETURN | 

1390 Х1-Х1-1:Ү1-УҮ14%1:Х2-Х1%1:Ү2-Ү1-1: RETURN 
1400 X1=X1:Y1=Y1+1 :X2=X1 : Y2=Y1-1 : РЕТОРМ 

1410 Х1-Х1%1:Ү1-Ү1%1:Х2-Х1-1:Ү2-Ү1-1:РЕТУРМ 
1420 X1=X1-1:Y1=Y1 :X2=X1+1 :Y2=Y1 :RETURN 

1439 RETURN | 

1440 X1=X1+1:Y1=Y1 :X2=X1-1 :Y2=Y1 :RETURN 

1450 Х1=Х1-1:Ү1=Ү1-1:Х2=Х1+1 :Y2=Y1+1 :RETURN 
1460 Х1-Х1:Ү1-У1-1:Х2-Х1:Ү2-Ү1%1:РЕТУРМ 

1470 Х1=Х1+1:Ү1=Ү1-1:Х2=Х1-1:Ү2=Ү1+1: РЕТОРМ 
1480 '——PAINT 1 —— 
1490 INPUT'BASE COLOR = ';OC 
19080. INPUT SELECT COLOR(1) = *;51 

1510: INPUT SELECT COLOR(2) = "3S2 

1520 INPUT START POINT (X,YO -:7;Х0,Ү0 

1530. INPUT END POINT. (X; Y) = "121,22 

1540 5С-51:02-Х0:03-Ү0 

1550 CQ-STATUSPOINT(Q2,Q3) 

1560 IFCQ く >0CTHEN1589 

КАГЫЛЫШЫ PSETCQ2,(032,SC 

1580 IFSC-S1THENSC-S2ELSESC-S1 

1590 02-02-1 

1600 IFQ2>Z1THENQ2=XQ 

1610 IFQ2=XQTHENQ3=Q3+ 1 

1620 IFQ3<Z2THEN1559 

1630 GOTO 500 

1640 PAINT 2 == 

1650 CMD CLS1:INPUT'BASE COLOR = ';OC 

1660 INPUT'HARD COLOR = ';S1:INPUT'SOFT COLOR = ';S2:1NPUT'START POINT (X,Y) = `" 
$XQ,YQ: INPUT'END POINT (X,Y) = ";71,22 

16/0 5С-51:02-Х0:03-Ү0 

1680 CQ-STATUSPOINT(Q2,Q3) 

1690 IF(Q3MOD2 )=9THENGOTO 1780 


リス ト 続 く 
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1700 IFCQ«»OCTHEN1720 
1710 СМО PSET(Q2,Q3)2,SC 
1720 IFSC=S1 THENSC=S2ELSESC じ =S1 
1730 02-02-41 
1740 IFQ2<=Z1THEN1689 
| 1750 03-03%1:02-Хх0 
1760 IFQ3<=Z2THEN1689 
1770 UIDTH80:GOTO 500 
1780 IFCQ« »OCTHEN1800 
1790 СМО Р5ЕТ(02,03)2,51 
1800 GOTO 1730 
1810 '——COLOR PATTERN == 
1820 CMD CLS3 
1830 XL-0:YL-20:CL20:CMz1:0UT104,0 
1840 IF(CM=2)AND(CL=2)THENCM=3 
1850 СМО LINE(XL ,YL )-(XL+29 。YL+29) ,CL,B:CMD PAINT(CXL*1, YL*12,CL 
| 1860 XL=XL+39:FORT=YLTOYL+29STEP2:CMD LINECXL, I2-CXL*29, I?) ,CL :NEXTI 
| 1870 FORI-XLTOXL*29:CMD LINECI,YLO-CI,YL*29)2 ,CL:NEXTI 
1880 FORI-ZXLTOXL-429STEP2:FORJZYLTOYL*29STEP2:CMD PSETCI,J2,CM:NEXTJ:NEXTI 
1890 XLZXL*30:FORI-XLTOXL*30STEP2:CMD LINEI, ҮЕ) -‹І,Ү +29), С: МЕХТІ 
1900 FORIZXL*1TOXL*29STEP2:CMD LINECI,YL2-CCI,YL*29)2 ,CM:NEXTI 
1910 ХІ =Х! +30 : ХМ= Хі *1: YN-2YL-1 
1920 CMDLINE(XL , ҮГ) - Хі +29, YL+29 ) , CM, B:CMDPAINT(XL +1, ҮГ +1), СМ, CM 
1930 СМО LINECXN, YL)-COXL +29, YN+29 ) , CL 
1940 XN=XN+2: ҮМ=ҮМ№- 2 
1950 IFXN<=XL+39THEN1939 
1960 XN=XL : YN=YL+29 
1970 CMDLINE(XL,YN)-(XN,YL+29),CL 
1980 YN=YN-2: XN-XN-*2 
| 1990 IFXN«X-2XL-*31THEN197?0 
2000 XLZXL-*30:FORISYLTOYL*29STEP2:CMD LINECXL,IO-OXL*29,I10,CM:NEXTI :FORI-ZYL-*1TO 
YL-29STEP2:CMD LINECXL,I2-C(XL*29, I),CL : NEXTI 
2010 FORI-SXLTOXL-*29STEP2:CMD LINECI,YL)O-C€OI,YL*29)2,CM:NEXTI 
2020 XL=XL+39:CMD LINECXL , YE = (Х +29, YL+29 ) , CM,B: CMD PAINT(XL+1 。 YL+1 ) , CM,CM 
2030 XL=9:YL=YL+39 : CM= CM+1 
2040 IFCM く 4THEN1849 
2050 CM-2:CL-2CL-*1 
2060 IFCL く 3THEN1846 
2070 WUIDTH80:RETURN 
| 2080 WY RAM <> ” > RAM—= 
| 2090 CLEAR100, &HCOFF 
| 2100 1=&HC199:DEFUSR1=1 
2110 READA$:IFA$-2'end'THENGOTO 130 
| 2120 POKEI,VAL(C'&h'*A$):1I-21I*1:6G0TO 2110 
| 2130 DATA 5e,23,56,21,00,80,01,7f,3e,00,3e,11,d3,e2,af,d3 
! 2140 DATA 9c,ed,b0,d3,5f,d3,e2,c9, end 


2150 
| 2160 POKE&HC109,0: S4z20:I-USR1(SX):CMD CLS3: RETURN 
| 2170 '——»23RAMCG2)—— 
| 2180 РОКЕ&НС109, Q0: SX-&H3F00:I-USR1(SX):CMD CLS3:RETURN 
| 2190 '——ÓVRAMC(1)0—— 
2200 РОКЕ&НС109, &HEB:SX-0:I- USR1(S%) : RETURN 
| 2210 '——ÓVRAM(2)— 


2220 РОКЕФНС109,%НЕВ:5%-%03Ғ00:І-05К1(5%):КЕТМЕМ 
| 2230 '——COLOR PATTURN Ез? === 

2240 РОКЕ%НС109,0:5%-0:І-(6Е1(5%):СМО CL S3 

2250 POKE&HC199,&HEB : S%=&H3F 00: І1=05К1 (57 ) 


| 2260 CONSOLEO , 25: LOCATES0 , 0 : PRINT "COLOR(1) | COLOR(2)" 
| 2270 LOCATE50,2:PRINT " 9 Em 

2280 LOCATE50,5:PRINT ' Ө | 4; 
| 2290 LOCATE50,9:PRINT ' 0 2- 

2300 LOCATES0,12:PRINT ” 1 e 

2310 LOCATES0,16:PRINT ' 1 3: 

2320 LOCATES0,20:PRINT >. 2 3 :CONSOLE22, 25 


2330 LOCATE9,23:PRINT 'P(1) PC すう 24 672 RE PC3) P(1 >” 3LOCATES,24 
:INPUT "HIT LRETURN] KEY  ;F$ 
| 2340 CMD CLS3:POKE&HC109, &HEB: S470 : IZUSR1(CSZ) 
2350 RETURN 
| 2360 “ —=end— 
2370 CONSOLE0,25:CMD CLS1:PRINT 'v2»3" (8999"BFFF ) 7 t-7 
2380 END-: 


タタ" サイ O 


н 
ч! 


108 


そこ が 問題 だ / 
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思考 ゲー ム の 楽し み 
デパ ー ト の オモ チャ コー ナー、 ホ ビ 
ー 専 門 シ ョ ッ プ *、 街 の な も ちゃ 屋 さ ん 
…、 と ころ せま し と 並ぶ 子ども の ぉ も 
ちゃ の 中 に うず も れ な が ら も 、 お と な 
だ ち に 根強い 人 気 を 保っ て いる が ん 具 
が あり ます 。 脳 細胞 を 活発 に 活動 させ 
な いと 解け な いと いう 、 イ ン テ リ ジェ 
ンス ホビ ー/ 知恵 の 輪 な ん て いう 古 
典 的 な も の か ら 新 し い プ ラス チッ ク 製 
の も の まで 、 実 に いろ いろ な も の が 普 
ん で いま す 。 マ スタ ー マ イ ンド 、 バ ッ 
クギ ャ モン 、 ル ー ビ ッ クキ ュー ブ な ど 


これ ら に 比べ る と 、 フ パパ ソコ ン 版 思考 
ゲー ム は 、 い ま ー つ 歯ごたえ が た りな 
い 感じ で す 。 ボ ー ド や 駒 を 動か す 18 
触 ” が 楽し め な いこ と も あり ます が 、 
や は り ゲ ー ム その も の が 単純 で 、 す で ぐ 
に あき られ て し まう の で す 。 囲 碁 や 将 
棋 の レベ ル ま で いく の は 大 変 で し ょ う 
が 、 じ っ て くり 改良 を 続け て いけ ば 、 い 
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AD ダイ ナミ ッ ク な 右上 の ター ン / 


хот: 


PC-6001,mk 1,6601 (16KB) 
右 に 進む か 、 左 を 目 ざ す か 、 


ゲー ム 


い ゲ ー ム が 誕生 する で し ょ う 。 
パソ コン 上 で 思考 型 の ゲー ム を 作る 
場合 ボー ド ゲ ー ム で は 実現 で き な い 
利点 を いか すこ と が 考え られ ます 。 た 
と えば 、 駒 が 移動 し た 軌跡 を 画面 上 に 
書き こむ こと が で きま す 。 こ の ゲー ム 
で も 、 毎 回 色 を 変え て 移動 し た 道のり 
を 書き こみ 、 そ れ を どう 突破 する か を 
ゲー ム の 重要 な 要素 もし て いま す 。 


この プロ グラ ム は N60-BASIC TË 
か れ て いま す 。 PC-6001 の 方 は を の ま 
ま 、PC-6001mk II また は PC-6601 の 
方 は 1 の モー ド を 選び 、How many 
pages ? に は 、 2 と 答え て か ら 、 プ ブロ 
タタ バル スト を 入力 し て くだ きい 。 
KUIN す る と も 、- 一 見 、 パチ ショ 台 の よ 
2 な ボー ド が 現れ ます が 、 こ の ゲー ム 
は サイ コロ を ふり な が ら 駒 を 進め て い 
ぐ ゲ ー ム で す 。 

出発 点 は 、 画 面 上 部 、 中 央 に 位置 し 
で いる (て) 朋 で す 。 ここ が か がら サイ ユ コロ の 


— — 


жж € €" 5» 8 €* ce 


AEH XK KEK. 


. 
4:9 
目 の 数 に 従っ て 進ん で ゆき 、 盤 上 の 4 
種 の ポイ ント を で きる だ けた くさ ん 通 
過 し て いけ ば 、 それだけ 多く 得点 で き 
ます 。 4 種類 の ポイ ント と 得点 は 次 の 
と お り で す 。 
Ф 100 
@ 200;5 
Ф 300; 
を 100 
き て 、 肝 心 の 移動 方 向 で す が 、 こ れ 
は 上 の 図 の と な り に な っ て いま す 。 サ 


イコ ロ は 2 つ あ り 、 一 方 の 目 、 他 方 の 
目 、 両 方 の 目 の 合計 、 の 3 つの 数 か ら 


43③ 浴 点 経 過 も 表示 し て くれ る よ 。 
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決ま る 方 向 の うち 、 好 き な 方 向 を 1 つ 
本 が と が で きま す 。 た ちと え ば 、 サイ 
コロ の 目 が 3 と 6 で あれ ば 、 3 は 左下 、 
6 は 右 、 合 計数 9 は 下 、 と な り 、 こ の 
3 方 向 へ 進め る こと に な り ま す 。 
こう し て 、 艦 面 を 動き まわ っ て 、 い 
も ぼん 下 の 段 に た どり 看 き ます と 、 £ 
こ に 1 一 6 まで の 数 が 書か れ て いま す 。 
この 数 字 を 獲得 し た 得点 に か けた 値 が 
最終 的 な 得点 と な り ま す の で 、 な る で 
¿ 中 央 部 の 高 得点 の と ころ に 着地" 
する の が 好ま し いわ け で す 。 
- こう し て 、 再 び 出 発 点 に も どり 、 別 
ルー ト で ポイ ント を ひろ っ て いく わけ 
be yt 2 回 目 、 3 回 目 、 と 進ん で いく 
と 、 最 初 と は 違っ た 色 で ライ ン が ひか 
れ て いき ます 。 し か し 、 一 度 通っ た 場 
所 は 通る こと は で きま せん 。 行き づま 
っ た ら ま た 再 ス ター ト 。 出発 点 で 進め 
な が く 〈 く な っ だ と き ゲ ー ム オー バー で す 。 


高 得点 へ の 道 


рчл 2 ТЕ ЛЫС 
て いま す の で 、 一度 に 全部 を 取っ て し 
まう の は 困難 で す 。 を そこで 、 何 回 か に 
分 け て 得点 する 手 が 考え られ ます 。 こ 
の と き 、 左 右上 下 に 進ま ず に 、 な な め 
上 、 下 に 進ん で いく の が な か な か 有効 
ЖЕСТ» - 

と いい ます の は 、 上 下 左右 に ひか れ 
た ライ ン は 、 2 度 と 突破 で きま せん が 、 
な な め の ラ イン は 、 逆 方 向 に な な め に 
進め ば (つま り ※ 印 に 交差 する )、 通 過 
で きま す 。 こ れ に より 、 移 動 の 可能 性 
は グー ン と アッ プ し ます 。 

分 類 思考 型 ゲ ー ム 


言語 N60-BASIC 


iau 


画 変 数 表 


D(10.14) 画面 の 状態 |0 fom SC(n ) n 回 目 の 得点 
к ARR TS トー タル ・ ス コア 
(UR TN . 試行 回 数 
3 クロ ー バ ー CX,CY カー ソル 座標 
4 dud XF,YF 移動 先 座標 
5 ША ED 移動 先 が あ る か どう か の マー ク 
9 使用 済 0:55 1: な し 


S( 2 ) サイ コロ の 数 ЖЕ 1 一 6 が 入る 
0 左 の サイ コロ 
| 右 の サイ コロ 
2 Zho088 
DT(8) 現地 か ら 8 の 方 向 へ 進め る か どう か 
0: ダ メ 1: 進め る 
ст(і) サイ コロ の 数 を 方 向 に 変換 する テー ブル 
TX( 8 ), TY( 8 ) カー ソル 移動 の た め の テ ー ブ ル 


@ フ ロー チャ ー ト 


START 


| sawwe ™] 


初期 画面 
表示 
7000 


ШЕРТ 


| END 処 理 5500 | 


ミリ オン ゲー ム プロ グラ ムリ スト | 


0 REM XxxXxXXXXXXXXXXXXXXXXXXXXxXx 

1 REM * MILLION GAME 1984.2 x 

2 РЕМ ж Ьу M. SUETSUGU E. 

З REM XXX KK o X x :XCX XX ЖЄ © © E E © E KK XK X 

10 DIM 0(10,142,5С(8),ТХ(82,ТҮ(8),5(2),ОТ(8),СТХ(12) 
20 SCREEN1,1,1:COLOR1,1,1:CONSOLE,,0,0:CLS 

30 GOSUBS8000:GOSUB7000 

1000 REM xxxxxxx MAIN XX※※※※※※※ 

1010 GOSUB2000 

1020 GOSUB3000 

1030 IF ED=1ANDCX=5ANDCY=1 THEN5599 

1040 IF ЕП-1ТНЕМ1230 

1050 EXEC&H1058 

1060 LINEC(8*CXx16-2,6*CYx12-2) -C8*CX*16*2,6*CYx12*2)2,4,BF 
1070 | ІМЕ(8%СХх16-2,6%СҮхж12-2)-(8%СХх1642,6%СҮж12%2),1,ВҒ 
1080 IFSTICK(9) く 1THEN1959 ¿ 
1090 IF DT(STICK(9 ) )=9THEN1959 

1100 XF=CX+TX(STICK(9)):YF=CY+TY(STICK(9 ) ) 

1110 IF XF<9 OR XF»10 OR YF<9 OR YF>14THEN1959 
1120 IFDK(XF , YF?) »ATHEN1050 

1130 GOSUB1500 

1140 IF YF>13THEN1299 

1150 GOSUB1600 

1160 DCXF 。YF )=9:CX=XF : CYz YF 

1170 GOTO1000 

1200 REM xxxxx NEXT STEP ※※※※※※ 

1210 IF ХЕ<ӨТНЕМ SC(TN)=SC(TN)※(XF+1 ) 

1220 IF XF>5THEN SC(TN)=SC(TN)※(11-XF ) 

1230 TS-TS*SC(TN) 

1240 GOSUB6000:GOSUB6100 : GUSUB4999 

1250 ТМ-ТМ%1:СХ-5:СҮ-1:06051/В86000:60701000 

1500 REM xxxxLINE DISPLAY ※※※※※ 

1510 C-TN-3X*INT(CTN/3)-*2 

1520 X1=8+CXX16:Y1=6+CY※12 

1530 Х2=8+ХЕж16:Ү2=6+ҮҒЖ1 2 

1540 LINECX1,Y12-CX2,Y2),C 

1550 RETURN 

1600 REM ххжжжжж SCORE 3xxxxxxx 

1610 SC(TN)=SC(TN)+199XD(XF , YF) 

1620 IFD(XF , YF) ZO THENPLAY ' o6132adadad' :GOTO1660 
1630 А-О(ХҒ,ҮҒ2ж10%30 

1640 FORI-ATOA*10:PLAY'nzi;32' : МЕХТІ 

1650 FORI-2A*10TOASTEP-1:PLAY'nzi5;32' ; МЕХТІ 

1660 GOSUB6000 : RETURN 

2000 REM xxxxxxx サイ コロ フリ жжжжжж 

2010 LINE(12x16,5x122-(15*x16,9x12),3,BF 

2020 PLAY'oó6ló4" 

2030 ҒОРІ-0Т01 

2040 S(1I)=INT(RND( 1 )ө ж6+1 ) 

2050 FORJ=1T02:FOURK=1T06 

2060 LOCATE1142x1,5:PRINT K 

2070 (ІМЕ(16ж(12%1ж2),12ж5)-(16%(13%1х2),12ж%6),3,ВҒ 
2080 PLAYMID$CMUS,K,1) 

2090 NEXTK,J 

2100 FORL=1TOS( 1) 

2110 LOCATE11-42x1,5:PRINT L 

2120 | ІМЕ( 16%(12%1жх2),12х5)-(16%(13%1%2),12х6),3,ВҒ 
2130 РІАҮМІО%(М0/%,1,1) 

2140 NEXTL 

2150 LOCATE11-42Xx1,5:PRINT SCIO 

2160 NEXTI 

2170 S(2)=S(9)+S( 1 ) 

2180 ҒОРІ-1708:0Т(І2-0:МЕХТІ 

2190 IFS(9)=10RS( 1 )=10RS(2)=12THENDT( 1 )=1 :DT(2)=1 :DT(8)=1 
2210 FORI=9TO2:DT(CT(S( 1 ) ) )=1 :NEXTI 

2230 FORI-1TOS8 

2240 IFDT( 1 )=9THEN2269 

2250 LINE(16X*x13*8,12x*7*6)-(16x13*8*16XxTXCIO,12x7*6*12xTYCIO),2 
2260 NEXTI 

2270 RETURN 

3000 REM xxxxxxxx END? жжжжжжжж 

3010 ED-0 

3020 FORI-1TOS8 

3030 IFDT(1 )=9THEN3989 

3040 X=CX+TX(I):Y=CY+TY(I) 

3050 IF X«0 OR X>19 OR Ү<0 OR Y>14THEN3989 

3060 IF. D(X,YOzZSTHEN3080 

3070 IF DX, YO«X»9THENRETURN 
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3080 
3090 
4009 
4010 
4020 
4030 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5500 
5510 
5520 
5530 
5540 
5545 
5550 
5560 
5570 
5580 
5590 
6000 
6010 
6020 


6100. 


6110 
6120 
70090 
7010 
7020 
7030 
7040 
7050 
70609 
7065 
7078 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
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МЕХТІ 

ED=1 : RETURN 

REM xxxxx REPORT ※※※※X※※※※ デ ※ 
GOSUB5000 

РРІМТ :РРІМТ" MESS TAA г s 


FORI-1T02000:NEXTI:SCREEN3,2,2:COLOR2,1,1: RETURN 
REM xxxx REPORT SUB ※※※※※※ 
FORI-1TO6:PLAY'o61136cegcegdfadfa' :NEXTI 
SUNEENTIT;1:1COLORZ,1,1:CLS O 

LOCATE8,0:PRINT TN;' カイ メ 519939!" 
LOCATE12,2:PRINT' H27»7 45D " :PRINT 

FORI-1TOTN 
PRINT " 
NEXT I 
PRINT” 2220 ーーー ニーーー ニ ーーーーー 
PRINT" TOTAL ' ; РІСНТФ С " 
RETURN ; 

REM xxxxxx GAME OVER жжжжж 
605085660 

PRINT:PRINT"' GAME OVER !” 
FORIZ1TO2000:NEXTI:SCREEN3,2,2:COLOR2,1,1 
( ІМЕ(0,0)-(16%11,12ж2),4,ВҒ 
LOCATEOG,0:PRINT' GAME OVER!" 
LOCATE0O,1:PRINT'RETRY?(CY/N)' 

EXEC&H1058 

A$-INKEY$:IFA$-''THEN5570 
ІҒАФ-"у"ТНЕМб0Т020 

END 

REM xxxx SCORE DIS. xxxxxx 
LINEC11x*16*2,3*x12)2-(16x16-1,4x12-1)2,1,BF 
LOCATE11,3:COLORA:PRINTRIGHTS(C' "+5ТРФ(5С(ТМ) ),5) : RETURN 
REM xxxx TOTAL DIS. xxxxxx | 
LINEC11x*x16*2,1x12)2-(16x16-1,2x12-1)2,1,BF Š 
LOCATE11,1:COLORA: PRINTRIGHTS(" "+STR$ も (TS ) ,5) : RETURN 
REM xxxxxx ショ キ カ " メン xxxxxxx 

SULNEENS,7,21COLOR2; 1,A43CES 

( ІМЕ(0,0)-(16%11,12ж15) ,3,В 

[ ІМЕ(16ж1%8,0)-(0,12ж1%6),1,ВҒ 

1МЕ (16ж1+8,0)-(0,12ж1+6), З 

( ІМЕ( 16ж9%8,0)-(16%11,12ж1%6),1,ВҒ 

( ІМЕ(16ж%948,0)-(16%11,12ж1%60),3 

( ІМЕ(0,12%142-(16%11,12хж15),4,ВҒ 

FORI=9T014:FORJ=9TO19 

LOCATEJ, І 

IF DCJ; I2»4THEN?130 

COLOR 4-DCJ, I2)*2xXINTCDCJ, 12/2) 

IFDCJ, І) »0THENPRINTCHRS$(CR&HYTF*DCJ, I22:60T07130 
LINEC8*Jx16-1,6*1x12-12-(8*Jx16*1,6*1X12*1)2,2,BF 

NEXT J,I 

LOCATES5,1:COLOR2: PRINTCHR$(&H84) 
LOCATE0,14:COLOR3:PRINT'12345654321 " :COLOR4 
FORIZ1TOA4:LOCATE11,9-*I:COLORA-I*2XINT(CI/2) 
PRINTCHR$C&H?TF*12;100XI:NEXTI 
COLOR3:LOCATE11,2:PRINT'SCORE' 

ОСАТЕ 11,0 : РРІМТ "TOTAL " 

605086000 : 605086100 

RETURN . 

REM жжжжж へ ヘン スウ 5af} xxxxxx 

TS=9 : CX=5:CY=1 : TN=1 :MU も = "cdefga' 

ҒОРІ-1708:5С( І2-0:МЕХТІ 


М0.7% I;RIGHTS(" CHSTRSCSDCIOY, T) 


~+STR( TS ) , 7) 


RESTORE8040:FORI-0TO14:FORJ-0TO10:READ D(J, I? :NEXTJ,T 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2194;24,0,0,0,;9,B,2,5,5 
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22» ~ ` ` ~ ` ` ` ` ~ ` ` ` `A 


DCTCIO:NEXTI 
DATA 0,7, 9 
RESTORE82 X 
DATA 0-1; 5 


RETURN 


(OD,TYCDNEXTI 
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江 明 な 地球 に 大 カン ゲキ / 


倍率 、 回 転 、 d» 自由 自在 に きく 
パソ コン 版 の 地球 僕 だ a HAB) 
BRA, цәй boo TAHI 
と 思っ て いる 。 

この 「 マ イ ュ ン 地 球 儀 」 で 特に く ふ 

し た 点 は 、 な ん と いっ て も 逃 視 モー 
ド だ 。 各 大 陸 の 位置 関係 (特に 裏側 に 
あたる 大 陸 ) が ひと 目 で わか る の で 、 
勉強 に な る と 思う 。 

また 、 倍 率 を 変る こと が で きた ら 、 
お も し ろ い の で は な いか と 思い 、 倍 率 
モー ド を プログ ラム し て みた だ 。 WEL 
ベル は 1 一 90 ま で ある が 、50 以 下 に な 
る と 大 陸 な ど が ゴチ ャ ゴチ ャ し て 、 地 
球 儀 と いう 実感 が わい て こない 。 

こま ご ま と し た 島 に 関し て は 、 hil 
な っ て し まう 可能 性 も ある の で 描か な 
か っ た 。 そ の た め 大 陸 メ イン の 地球 儀 
と い 2 形 に な っ て し まっ た 。 

問題 点 と いえ ば 、 地球 儀 カ 『\ 完 成す る 
まで に 時 間 が か か っ て し まう と いう 点 。 
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マイ コン 地球 儀 で 


地理 の 勉強 を し よう / 


これ に は ふた だ つ 人 原因 が ある 。 ひ と つ は 、 


BASIC で 3D 処 理 を し て いる こと 。 
も う ひ と つ は 、 透 視 モ ー ド 以外 の と き 
に も 裏側 で 見 えな い 大 陸 を 描い て いる 
: 2. 

3D 処 理 の 問題 は 、BASIC て DATA 


文 を 読ん で いる 限り し か だ た が な い 。 も 
う ひ と つの 間 題 点 は 、 見 えな い 大 陸 に 
う に 処理 すれ ば 、 


関し て は 描か な いよ 
REY 5453. 


プロ グラ ム の 入力 の 終了 後 、RUN 3 
せる と まず 倍率 を 聞い て くる の で 、 倍 
率 を 設定 し て 下さ る い 。 倍率 レベ ル は 、 
先 に も 書い だ よう セコ エー90 で す 。 

次 に 、 裏 側 を 表示 する か を 聞い て く 
る の で 、 裏 側 を 表示 し た い 場 合 は 「 は 
いい 三田 」、 表 だ け で いい 場合 は 「 い いえ ぇ 
=2 を お し て て くだ さい 。 

この セレ クト が 終了 する と 、 経 緯線 
を 表示 する か どう か を 聞い て くる の で 
киі П =, ERL 


c 
視点 


な い 場 合 は 「 い い ぇ を 三 図 」 を お し ます 。 
この 経緯 線 は 点線 で 表示 きれ ます 。 倍 
率 が 低 じ ときには 、 グ ラフ ィ ッ ク が ゴ 
チャ ゴチ ャ し て くる の で 、 経 紳 線 を 引 
く の は きけ た 方 が いふ で し まう 。 
次 に どこ を 正面 に する か を セ 
レク ト し ます 。 そ の リス ト は …… 
1 、 日 本 2 E Де 
Qo тену 4757 
9. ОТЕ 6 、 大 西洋 
7, 北極 8 、 南 極 
自由 に 回 転 き せる 


ム ① 倍 率 60。 ユー ラ シ ア を 中 心 に 。 


4 ム ② 見 えな い 北 アメ リカ を 書い て ます 。 


ム ③ 倍 率 90。 これ が 透視 モー ド だ 。 
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"9" を モレ クト する と 、X 軸 と Z 


軸 の 回 転 角度 を きい て きま す 。 それ ぞ 


れ 0 て 360' (た だ し 、5 の 倍数 ) まで の 
数 字 を 入れ て 下さ い 。 この プログラム 
で は 、 図 1 の よう に 座標 を 設定 し て い 
る の で 、 数 字 を 入力 する 際 に 参考 に し 
も た 

た と えば 、 双 軸 の 回 転 を 0 度 と する 
E. TUB Egon S {4 Y. c 
Z 軸 を 回 転 きせ る わけ で す が 、 画面 中 
央 に も っ て きだ た い 地 点 が 西経 の 場合 は 


を その まま の 経度 数 を 入力 し ます 。 東経 
の 場合 は 360 度 か ら 東 経 を ひい た 角度 
を 入力 し て 下さ い 。 そう すれ ば 、 を その 
地点 が 画面 の 中 央 に 位置 し ます 。 
透視 モー ド に し て お いて 、 き まさ ざま 
な 角度 か ら 地 球 を な が め て みる の も い 
いで し ょ う 。 宇宙 空間 に 飛び 出し て 、 
ガラ ス の 地球 を な が め て いる よう な 、 
不思議 な 気持 ち に な り ま す 。 
分 類 教育 ソフ ト 
言語 N60-BASIC 


START 


ELAR 


WD(7, 48, |) 大陸 の 経緯 デー タ 
WL( 7) 大 陸 の 点 の 数 
WC( 7 ) 大 陸 の 色 

WN$( 7) 大 陸 の 名 前 


WP( 7, 1) 大 陸 を paint す る 際 の 中 心 座標 
SN(72), CS(72) 処理 速度 を 早め る た め 、Sin・Cos 関 数 を 、 配 列 に な お し た も の 。 


А 倍率 (|!-90) 

TS 透視 する か どう か (0 : しない 1:42) 
KI 経緯 線 表示 (0 : し な い 1:75) 
XK X 軸 回 転 の 角度 (0-360) 

ZK 2Z 軸 回 転 の 角度 (0-360) 

AP 真 円 に する た め の 修正 値 ( .9) 

СХ, CY 画面 の 中 心 座標 (127, 102) 


マイ コン 地球 儀 ブロ グラ ムリ スト 


Ü RFEMXXX※X※XX※※※※※※※※※※※※※※※※※※※※ 

1 REM* 43» チキ ュ ウ キ " (Ver.1.0) ж 

2 REMX by M.SUETSUGU 1984.2 ※ 

З REM3X3D:3 XX X X € X © x 3X X Xx xQoaexxxx 
10 DIM UDC7,48,12,ULC?D ,UPC7,12,UCC?D, UNSC?) 
20 DIM CS(72) 。SN( 72 ) 。 LX(1 ) , ЕҰУ; 17(1), СЕ(8,1) 
100 605189000 

110 605088000:6051/86000:6050вВ2000 
120 IFKI=9THEN149 

130 605084000 

140 (Г.ІМЕ(0,0)-(255,11),1,ВҒ 

150 PLAYMUS:LOCATE9,0:COLOR3:PRINT '2»t4 'RETRYCy/n)?"' 
160 EXEC&H1058 

170 А%-ІМКЕҮ%:ІҒАФ-" "ТНЕМ170 

180 IFA$-'y' THEN110 

190 ІҒАФ= "п" ТНЕМЕМО 

200 GOTO170 

1000 REM ※※※※ カイ テン sub. А xxxx 
1020 X1-X 

1030 Y1-YxCOS(CA)?-ZX*SIN(CA) 

1040 Z1-YxSINCAO*ZXxCOS(CA) 

1050 X2-X1xCOS(CB)-Y1xSIN(B) 

1060 Y2-X1xSIN(CBO*Y1xCOS(B) 

1070 72-71:РЕТОЕМ 

1500 REM xxxx カイ テン sub. B xxxx 
1520 X1=X 

1530 Y1=YXCS(A)-Z※SN(A ) 

1540 Z1=YXSN(A)+Z※CS(A) 

1550 X2=X1XCS(B)-Y1xSN(B ) 

1560 Y2-X1xSN(BO-*Y1xCS(CB) 

1570 7Z2=Z1:RETURN 

2000 REM xxx タイ リク display ※※※※ 
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2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2500 
. 2510 

2520 


172930 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
7000 
7010 


2 7020 


7030 
7040 
8000 
8010 
8020 
8030. 
8040 
8050 


ҒОРН-0Т07 

A$=WN$ (H) : 605087000 

FORI-1TO UL(CH) 

FORJ--1T00 

A-DOXxUD(CH, I*J,1) 

B-DOxUDCH, I+J,0) 

X=9 : Y=9 : Z=R : 605081000 
KSXDAYAY2:7—72 
A-XK/5:B-2ZK/5:GOSUB1500 

LX(J+1 )=X2/AP+CX iLY(J+1 )=CY-Z2:L7Z(J+1 )=Y2 
NEXTJ 

IF TS=9 AND LZ(9)>9 AND LZ(1)>9THEN2159 
С2-4:ІҒ LZ(9)>9ANDLZ( 1 ) >8THEN C2=1 
LINE(LX(9),LY(9) )-CLX(1 ) ,LY( 1 ) ) 。C2 
NEXTI ` | 

REM xxxx タイ リク PAINT xxxxxx 

IF TS=1 THEN2599 
A-DOXUPCH,12:B-2DOxUP(CH,0) 
X20:Y20:Z-R:GOSUB1000 
A=XK/5:B=ZK/5 
Х-Х2:Ү-Ү2:2-72:6061/В1500 

IF Y2>9 THEN2599 
XX=X2/AP+CX : YY=CY-Z2 

PAINT(XX,YY) ,UC(H) , 4 

NEXTH 

RETURN 

REM ※※※※ か イイ セン display ※※※ 
A$-'T44t»':GOSUB7000 

SX=19:SY=19 

X9=9 : Y9=9 : 7Z9=R 

FOR. І-0Т0 36STEP SX/5 

C=1 :SY=19:EFT=18THEN С-3:5Ү-5 
X1=X9 

Y1=Y9xCS( 1 ) -Z9xSN( I ) 
71-Ү0ж5М( 1 )+Z9xCS( 1 ) 

FOR J=9TO 725ТЕР SY/5 
X2=X1xCS(J)-Y1xSN( J) 
Y2=X1xSN(J)+Y1xCS(J) 

212271 

X3=X2 

Х-ХК/5:7-7К/5 
Y3-Y2xCS (OO -Z2xSNOO 
Z3=Y2xSN( X )+Z2xCS( X ) 

X4=X3xCS(Z )-Y3xSN(Z ) 

Y4=X3xSN(Z )+Y3xCS(Z ) 

74-23 

XXzXA/AP-*CX:YY-2CY-ZA 

COLOR C 

IF TS=9AND Y4>9THEN4259 

IF YA»QTHENCOLOR3 

РЅЕТСХХ, ҮҮ) 

NEXTJ,I 

RETURN 

REM жж リン カク display sub**x 
SCREENS; 2,2:C0LU0R1,; 2,2: CLS 

A ま = "リン カク " :GOSUB 7O00 
X9=R/AP+CX : Y9=CY-9 

FORI-0TO?2 

X1-RxCSCIDO/AP*CX: Y12CY-RXxSNCI) 
LINECX1,Y12-CX0,Y0),4 
X9=X1 : Y9=Y1 : МЕХТІ 
РАІМТ(10,202,1,4 

RETURN 

REM xxxx INFORMATION жжжжж 
(.ІМЕ(0,0)-(255,11),1,ВҒ 

PLAYMU$ 

COLOR2:LOCATE9 , 9 :PRINT A$;'2247432A' 
RETURN 

REM xxx ハ ° ラ メー タ INPUT жжжж 
SEREENTI,T,1E£(GOLOR1,1, TEBES 
PLAYMUS:LOCATEO,0:PRINT xxxxxxxx マイ コン $Tti90t" xxxxxxxxxx'i1PRINT 
INPUT'A"4U" (0 カラ 90 Y7"/2922")'sR 
ІЕР<дОР R»90THEN8030 

INPUT " ウラ カ " リモ ヒョウ シミ" シマ スカ (M71 イイ エ =9 ) " ; Т5 


リス ト 続 く 
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8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
9009 
9010 
9020 
9039 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
| 9340 
9350 
9360 
9370 
9380 
9390 
| 9400 
| 9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
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ЕР TS く >9ANDTS く >1THEN8959 
INPUT " ケイ イセ ン ヲ ヒョウ シ " シマ スカ (M1 イイ エ =9) SKE 
IF _KI く <>9ANDKTI く >1THEN8979 
PRINT "トト " コ ヲ ショウ メン ニ 5729?" 


PRINT 1 72089 У 2.7309 
PRINT'3.3-n*»A? Д.79" У" 
PRINT 5. タイ A イ ヨウ 6 。 タイ セイ ヨゴ ヨウ” 
PRINT "7 жч#37 8 ナン キョ ク " 
PRINT'9.2"395- カイ テン サ セ ヤル" 

INPUT "スウ シ " テ "コタ エ テ ク タ " サイ "3A 

IF A«00R A»9THEN8150 


IF А-9ТНЕМ8190 

XK-2CECA,0)2:ZK-72CECA,12 : RETURN 

INPUT'x2"22ftf»h"247»79t3239 (0-360 949"355JA"422)':XK 

IF XK<QOR XK»360THEN8190 

IF XK-5%※INT(XK/5) く >9THEN8199 

INPUT ‘25° クラ ヲ ナ ント " カイ テン サ セ マ スカ (0-360 99"535JA"4225)" AK 

IF ZK<QOR ZK»360THEN8220 

ЕР 2Қ-5жЖІМТ(7К/52< >9ТНЕМ8220 

RETURN 

REM xxxxx ヘン スズ ウリ 5з%) Xxxxxxx 
SCREEN1,1,1:COLOR1,1,1:CONSOLE,,0,0:CLS 

і ОСАТЕЯ, 7: РРІМТ "シル "ラク オマ チク タ " サイ" 
РІ-3.14:АР-.9:П0-3.14/180:СХ-127:СҮ-102 
MU$-'oó6liócego?cecoógecececec' 

FOR І-0ӨТ072 

CSCIOZCOS(CPIXIXx5/180) 

SNCIOZSIN(PIXIXx5/180) 

NEXT 

RESTORE9100:FORI-1TO8:FORJ-Z0TO1:READ CECI,J):NEXTJ,I 

DATA 345,225,10,75,20, 340, 340,260,20,180, 18, 30,90,0,270,0 
RESTORE9130 

ҒОЕІ-0ТО ?:READ UNS$CIDO,ULCIO,UPCI,00,UPCI,12,UCCIO:NEXT 

DATA 1-727,48,90,50,4 

DATA キタ アメ リカ , 25,269 , 59 ,。3 

DATA アフ リカ , 15,19,75,3 

DATA ミナ ミア メリ カ ,13,395,98,4 

DATA オー スト ラリ ア ,19,133.,119,3 

DATA 7у%з2,10,0,180,1 

DATA 2" リー ン ラ ント “ »9» 328 э 20 E 1 

DATA 2%%%;,16,137,54,3 

RESTORE9240 
FORHZ0TO?:FORIZOGTOULCH):FORJZ0TO1:READ UDCH,I,J):NEXT J,I,H 
REM XxxxxXxxxxxxxxxx]1-7257 

DATA 185,23,157,38,156,33,165,27,135,35,142,37,135,46,128,50 
DATA 130,54,127,56,122,49,117,52,122,60,117,67,105,70,109,78 
DATA 100,77,103,89,90,67,78,82,68,66,48,60,58,69,47,76 

UNITA 3,98,36,53,21;22,13,;44,15,52,9,405,40,46,357,53,9912 52 
DATA 351,47,358,47,358,41,5,37,20,36,24,31,22,26,14,35,5,28 
DATA 25,19,40,22,70,18,100,15,135,18,170,20,185,23 

REM JXxx эе xxxxxxxxt-973U] 

DATA. 221, 30,236,41,238,53,255,70,282,82,273,72 

DATA 273,68,265,71,262,68,262,62 

DATA 277,60,279,65,278,58,304,38,282,27,280,39,265,30,277,21 
DATA 224,22,204,18,193,22,193,28,202,32,192,37,210,28,221,30 
REM 3mXÁxxxxxxxxxxxxxxx77U] 

DATA 354,55,342,68,343,78,352,85,9,85,14,102,11,108,18,124 
DATA 26,123,41,105,40,93,52,79,43,80,32,59,10,54,354,55 

REM ※X※※※※X※※※※※※※※※ ミ ナミ アメ リカ 

DATA 284,79,277,95,290,109,285,144,290,142,297,129,303,128 
DATA 311,115,318,113,326,95,310,90,308,85,297,79,284,79 

REM ※※※※※※※※※※※※※ オ ー ス トラ リア 

DATA 113,112,115,125,134,123,140,130,150,128 

DATA 153,118,142,101,140,108,135,102,124,106,113, 112 

REM XXOOOOOOOCOOEXX XXX 1 37 

DATA 53,156,100,155,140,157,170,162,165,168 

DATA 230, 164, 300, 153, 300, 165,2349,1698,3253,161 Мет БЕЗ» 

REM Xxxxxxx*xxxxx7"U—-»y5,Mk* 

DATA 340,9,339,20,317,30,308,27,290,12,340,9 

REM xxx»xxxxxxxxxxxxx-vyf$?, 

DATA 142,46,146,47,143,48,141,48,142,51,141,54,137,55,136,56 
DATA 132,57,131,59,130,56,136,54,139,52,140,50,139,48,141,47 
DATA 142,46 

RETURN 


52-203 EG O 


いよ さら 


ゲー ム の 内 容 に つい て は 、 
何 も 説 明 す る 必要 は な い だ ろ う 。 お も 
ちゃ で も な じみ 「 黒 ひげ 危機 一 髪 」 の 
マイ コン 版 だ 。 

この ゲー ー ム で 使う カタ ナ は 10 本 (0 
~) だ 。 ぉ も ちゃ の 「 黒 ひげ 危機 一 


E. Li. 


い 少 な い 。 


くら で も の に な ら な いく ら 6 
その 点 で 、 楽 し み に 欠 け て 


し まう が 、 こ れ は 立体 と 平面 の 差 ( グ 


ラフ ィ ッ ク を 無視 する な ら 何 本 で も カ 
タナ を 使う こと が で きる だ ろう が ) と 
あき ら め よ う 。 | 

し か し 、10 本 だ か ら と いっ て 油断 し 
きい け な い 。 ゲ ー ム オー バー に な る 
確率 は 、10 本 の 方 が 高い の だ 。 

単純 な ゲー ム な の で すでに アキ て し 
まう 確率 も 高い 。 を の と き に は 、 プ ブロ 
グラ ム を 改造 し た り 、 新 し い ル ー ル を 
慌 ら ちや 楽し むこ と に し よう 。 


黒 ひけ の 生死 は 
プレ イヤ ー の カン し だ い 。 


黒 ひげ 危機 一 月 


_ き 、 画 面 に は 「 ギ ャ 


(25454 
タリ を る け て カタ ナ を 刺す か だ が 、 こ 
れ を 逆転 きせ れ ば 別 の な も し ろ る が 出 
て くる 。 それは か く 〈 く され た 答え を いか 
に 早く 〈 当て る か と いう 楽し み だ 。 乱 数 
を いか に 読む (? ) か 、 プ レー ヤー の カ 


ン ひ と つ に か か っ て くる の だ 。 


使用 する キー は [Q~-[9 だ け で す 。 得 
点 は 1 本 クリ アー する ご と に 10 点 。 Ж 
事 9 本 クリ アー する と ボー ナス 点 と し 
て 100 点 が 加算 きれ ます 。 点 数 が 低 す ぎ 
て 張り 合い が な いと いう 人 は 、 プ ログ 
ZAAL ELTI, 

また 、 黒 ひげ が カタ ナ で 刺さ きれ た と 
ー」 と いう 文字 が 
出 て きま す が 、 PC-6001mk II を 使っ 
て いる 人 は 、 し ゃ べら せ る よう に 改造 
する の も いい で し ょ 2 う 。 

な お 、PC-6001mk II Cl, N60-B 


黒 ひ げ 危 機 一 胃 プロ グラ ムリ スト 


REM 

REM .--20E7"*-t*t49A9*'V !i-- 
REM Copyrtght (C) 1983 
REM By T.Fujimatsu 
REM NEC: PC-6001 
REM: 

CLEAR 50:DIMZ(9) 


SCz0:R0-21:SCREEN1,1,1: CONSOLE, ,0,0: G0SUB1090 


SCREEN3,2,2: COLOR3, 2, аж 
L=1: G0SUB559 
PLAY" 513m150t200" 
PLAY'o2a-291', *c2o2b2o3c1 " 


FORT=1T01599:NEXTT:N=INT(RND( 1 )※19 ) 

: NEXTI:FORJ- 1T0100:A$- INKEY$:NEXT J 
COLOR3:LOCATE1 。 17: PRINT" か の ババ ルム ダイ 

"THEN169 


FORI=1T03:PRINTCHR ま (7 ) 3 


А%Ф-ІМКЕҮ%: IFAS" 


"s13m150t200`:P$=' 


o3cciódió6e-c':PLAYP$«P$,P$«P$ 


本 来 の ルー ル は いか に ア > 


ASIC 16KB モ ー ド で 入力 し て 下る い 。 
分 類 テー ブル ゲー ム 
言語 N60-BASIC 


作者 の プロ フィ ー ル 


SF. VIVE. F708. 
*\ フ ロ ヒ ゲ * は 、 み ん な で 楽し め る 
こと を 自 標 に 、 作 成 し ま し た 。 BIN 


く 知 くし よう と 、 マル チ ス テー トメ ンー 
ト を 多用 し だ だ め 、 読 み づ ら い ブ ログ 
= Ea 
マイ コン 以外 で は 、 切 手 、 プ ラ モ デ | 
ル な ど を 趣味 に し て いま す 。 e 


ACOA22S2TNPSUÓT 


リ A ト 続く 


11Z 


170 IFAS«'Q'OR А%>"9"ТНЕМ160 
180 А-УА( (АФ) 
190 COLOR2:LOCATE1,17:PRINT "FINA" YI DIF?" 
200 IFZ(A)=9THENCOLOR4 :LOCATE1 , 17:PRINT "モウ イチ ト " !!!":GOSUB1080:GO0TO150 
210 СОГ ОРЗ: ОСАТЕ1, 17 :РРІМТ " コ り カイ シマ セン ネ ・・・“ i 
220 FORJ=1T0599 : NEXTJ:COLOR2:LOCATE1 , 17 :РРІМТ " コ 9 カ イシ マセ ン ネ ・・・“" 
' 230 IFA<90RA>4THENGOSUB329 
240 IFA«5ORA»9THENGOSUB290 
250 IF A=N THEN 350 
260 L-L*1:IF і-10 THEN 520 
270 COLOR2:LOCATE1,3:PRINT;SC:SC2SC«*10:COLORA : LOCATE1, 3: PRINT;SC 
280 GOTO 140 
290. REME DIF O J=- 
300 COLOR2:LOCATE2,Z(A):PRINT'" :COLOR3:LOCATE4,Z(A) :PRINT'" 
310 Z(A)20:RETURN 
320 REM ---?22ft(2)--- 
330 COLOR2:LOCATE11,Z2(A): PRINT’ :COLOR3: LOCATE11,Z(A):PRINT" 
340 Z(A)-0:RETURN 
350 REM ---GAME:OVER--- 
360 FORIZ1TO108:COLOR, ,2:FO0RJz1TO25:NEXTJ: COLOR, , 1: ҒОР.Ј=17025 : NEXT J 
370 NEXTI:COLORA:LOCATES,17:PRINT'£t"s-!!" 
380 LINE(125,36)-(118,36) ,3:LINE( 125,362-(118,40),3 
390 LINE(125,3620-(118,32)5,3:LINE(122,45)-(133,50),2,BF 
400 FORJ=9T02:FOR1=9T0255STEP16:SOUND9 , I : SOUND1 , J: SOUND? , &HFE : 500308, 15 
410 NEXT I,J:SOUND?,56:SOUND8,0 
420 FOR I=1 TO 1200:NEXT I 
430 PLAY"t169o4e4r8e4Fr16e64r64e4F8gr16f+16r64f+e16r32ed+16r32e4 * 
440 CLS:COLOR3:LOCATE3,4:PRINT "GAME : OVER" 
450 IFSC>HITHENHT =SC 
460 COLORA:LOCATE3,7:PRINT'SCORE: ' ; SC: COLOR1:LOCATES3,9 
470 PRINT'HI-SC: ';HI:COLOR3:LOCATE1,12:PRINT'PLAY AGAIN 2?” 
480 COLORA:LOCATE6,13:PRINT'(Y or №)" : А$= ІМКЕҮФ: IFA$-' 'THENA80 
490 IFA$-'Y'ORA$-'y'THENS8O 
500 IFA$-'N'ORA$-'n'THENEND 
510 GOTO 480 
520: РЕМ ---CLEAR!'! ニーー 
530 CLS:COLORA:LOCATE1,7:PRINT'ROUND' ; РО; : COLORS: PRINT' CLEAR!" 
540 5С-5С%100:РО-РО%1:ҒОРІ-1702000:МЕХТІ:СІ5:060Т0 100 
550 REM ーーー カ "メン セリ テイ ーー 
560 SCREEN3,2,2:C0LOR3,2,1:CLS 
570 Х-22:Ү-0:А-1/32 
580 FOR І-1 TO 200 
590 XzX-AxY:Y-AxX-4Y 
600 PSET (X*128,32-Y),3 
610 NEXT I | ў 
620 11МЕ‹ 108,28) (148,28), 3 
630 РАІМТ‹ 125,20), 4,3 
640 Х-5:Ү-0:А-1/32 
650 FOR I-1 TO 200 
660 X-X-AxY:Y-AxX-*Y 
670 PSET (X*120,36-Y),3 
680 NEXT I:PSET(120,36),3 
690 LINEC132,32)2-(142,40)2,3,BF 
700 LINE(132,32)-(128,28),3:L INE(135,32)- (131,28) , 3 
710 LINE(142,322-(148,28)2,3:LINE(148,29)2-(142,35),3 А 
720 Х-12:Ү-0:А-1/32 
730 FOR I=1 TO 85 
740 X-X-AxY:Yz-zAxX*4Y 
750 PSET (X*128,55-Y),3 
769 NEXT I:PAINT(128, 52), 343 | 
770 LINE(122,48)2-(133, 48), 2:11МЕ(116,22)-(140,22),3 
780 LINEC122,152-(134,152,3:PSET (128,40),3 
790 LINEC140,55)-(143,580 , 3:LINEC116,52)-(112,58),3 
800 LINE(148,39 )-(152,38),3,BiLINE(196,39 )-( 192,38 ) , 3,B 
810 LINE(99,58 )-(165,58) ,3:LINE( 29 , 58 ) -( 85, 63 ) , 3 
820 LINE(165,58 )-(179,63),3:LINE(85,63 )-( 179,156 ) , 3,B 
830 11ІМЕ(170,156)-(165,165),3:11МЕ(85,156)-(90,1652,3 
840 (.1ІМЕ(90,165)-(165,165),3:11МЕХ(85,154)-(170,154),3 
850 1ІМЕ(85,652-(170,65),3:11МЕ(85,86)-(170,88),3,В 
860 LINEC85,1092)-(170,1112,3,B:L INEC85,132)-(170,134)5,3,B 
870 РАІМТ‹ 128,60 ),1,3:РАІМТ( 128,70), 1,3: РАІМТ( 128,90 ),1,3 
880 РАІМТ‹ 128,120 ),1,3:РАІМТ‹ 128,140 ),1,3:РАІМТ‹ 128,160 ) , 1,3 
890 LINE(128,582-(128,63),3:LINE(128,652-(128,86),3 
900 LINE(128,88 )-(128,199) ,3:LINE(128,111)-(128,132 ) , 3 
910 LINE( 128,134 )-(128,153),3:LINE( 128,157)2-(128,165),3 
920 (ІМЕ(146,58)-(151,632,3:11МЕ(109,58)-(104,63),3 
930 LINE(151,652)-(151,862,3:LINE(151,882-(151,109),3 
940 LINE(151 。111)-(151 ,132),3:LINE( 151 ,134 )-(151 , 153 ) , 3 
950 LINE(151,1572-(146,165)2,3:L INE( 109,58)-(104,63),3 
960 LINE(194,65)-(194.86),3:LINE( 184,882-(104,109),3 
970 LINE(C104,1112-(104,132)2,3:LINE( 104,134)2-(104,153)2,3 


. 980 LINEC184,157)2-(109,1652,3:COLORA:LOCATEO , 6 


990 FORI-OTOA:PRINT;TAB(COO; I:*PRINT:NEXTI:LOCATE13,6 

1000 FORJ-STO9:PRINT;TABC13); J:PRINT:NEXTJ 

1010 COLORA:LOCATE1,1:PRINT'SCORE ' :LOCATE1, 3: PRINT;SC 

1020 COLORA:LOCATE10 , 1 :PRINT "ROUND " :LOCATE11, 3: PRINT;RO 

1030 LINE(9,620-(246,1852,4,B:PAINT(0,0),4,4 

-1040 Y=4 

1050 FORI=9TO4:Y=Y+2:Z( I) SY: COLOR3:LOCATE2,ZC ID : PRINT"  :NEXTI:Y-74 
1060 FORI-5TO9:YzY*2:ZC( I) SY: COLOR3:LOCATE11,ZC I? : PRINT" " :NEXTI 

1070 RETURN 

1080 FORI-1TO 509:NEXTI:COLOR2:LOCATE1,17?:PRINT" モウ イチ ト * LLL RETURN 
1098 REM. ーー ニー セツ メイ ーー ニー 

1100 CLS:FORI-0TO3:PRINTCHR$C?7); :LOCATE19,9:PRINT "GAME / セツ メイ " :NEXTI 
1110 LOCATE5, 4 :PR INT " オ ソ ロタ ク 9»»"ivf GAME ノ タメ " 

1120 LOCATE8,6:PRINT "セツ メイ Л 八 ブ リク ・・・・・ 

1130 LOCATE5,8:PRINT " マ ァ シラ" リサ イニ ヤリ テミル コト タ ~ ナ 。”" 

1149 LOCATE5, 14:PRINT'By T.Fujimatsu 1983(C)" 

1150 LOCATE5, 12:PRINT "上 RETURN] KEY 7"START!'":A$- INKEYS$: IFA$-''THEN1150 
1160 IFA$ く >CHR ま (13 )THEN1159 

1170 RETURN. 


[aet Ы m 
P > , ой 4% с >» С 
АҚ iey M 


4 初期 画面 例 (FM- 7) 


まず 、 各 ゲー ム の 解説 の ペー ジ を 見 
て 、 ど の ゲー ム を 入力 する か 決め まし 
Eee の まき 、 目 分 の マシ マッ て 直る 
か どう か を 確認 し て くだ る さい 。 こ の 本 
で は 、 機 種別 に プロ グラ ム ・ リ スト を 
載せ て いる の で 、 自 分 の マシ ン 用 の プ 
ログ ラム の な か か ら 、 遊 び た い ゲー ム 
を 見 つけ ます 。 

入力 する ゲー ム を 決め た ら 、 る っ を 
く リ スト を 打ち 込み まし ょ Э. 命令 文 
は も ちろ ん 、 空 日 や REM Хы 9A 
ト ど お り に 慎重 に 入力 し て いき ます 。 
「REM 文 だ か ら 、 省 略し て も いい や 」 
な ど と 、 勝 手 に 書き 変え た る と エラ ー に 
な る 可能 性 が あり ます か ら 、 注 意 し て 
(775% 

初心 者 の た め ゆめ に 、 プ ログ ラム の 基本 
的 な 入力 方 法 に つい て 簡単 に 説明 し て 
お きま し ょ う 。 リ スト の 左端 に 並ん で 
いる 数 字 が 行 番号 で びす 。 プ ログ ラム は 


xi 


е1 
せっ か く 打 ち 込 ん 


プロ グラ ム を 入力 し よう 


行 番号 を 単位 に し て 、 順 番 に 処理 され 
ます 。 

初期 画面 が 表示 され た ら 、 リ スト の 
10 行 ( プ ブログ ラム に よっ て は 、 100 行 
や 1000 行 か ら 始ま っ て いる も の も あり 
ます ) か ら 打 ち 込 ん で いき まし ょ う 。 
最初 に 、 還 9] と 入力 し ます 。 次 は 空白 
で すか ら ス ペー スバ ー を お し て くだ さき 
Dow) LT. ЭЖЕ ЕЭ БААЛ 
て いき 、 行 番号 10 の 最後 まで 打ち 終わ 
っ た な ら 、 最 後に 【RETURN】 (機種 
に よっ て は 、 回 [CR]) を な し ます 。【RE 
TURN] は マイ コン に 入力 を 知ら せる 
役目 が ある の で 、 ぜ っ た い に 忘 れ な い 
(772 ЕШ, 1 文字 、 


正確 に 入力 し て いけ ば OK で す 。 


ABASIC を 入力 中 の 画面 (FM- 7) 


セー ブフ の 準備 


この 本 に 掲載 きれ て いる プロ グラ ム 
は 、 小 さい プ ログ ラム で も 1 一 2 ペー 
ジ ほ ど あ り ま す の で 、 い っ き に 入力 す 


る の は な か な か た い へ ん で す 。 そ れ に 、 


Bu d cw 


入力 の 途中 で 停電 が あっ た り 、 電 源 コ 


1 文字 、 


ー ド が 引き 抜か れ た りす る と 、 せ っ か 
〈 打 ちこ ん だ プログ ラム が 消え て し ま 
いま す 。 そう し た 危険 を きけ る だ め に 
も 、 途 中 で こま め に セー ブ し て いく の 
が 安全 で す 。 

デー タレ コーダ を 用 意 し て (50 
の ラジ カセ や テー フレ コー ダ で も かま 
いま せん )、 接 続 ケ ー ブ ル で 本 体 と 接続 
し て くだ きい 。 赤い プラ グ は MIC 端 子 、 
白い プラ グ は EAR 端子 、 黒 い プ ラグ を 
REMOTE 端 子 に 差し こみ ます 。 

次 に 、 カ セッ ト テ ー プ を デー タレ ュ コ 
ー ダ に セッ トド し ます 。 カセット テー プ 
は 、 ふ つう の 音楽 用 テー プ で も か まい 
ませ ん が 、 専 用 の カセ モ セット テー プ ' も 発 
売 さ れ て いま す 。 音楽 用 テー プ は 、 テ 
ー プ の は じ め と 終わ り の 部 分 が 録音 で 
き な い よう に な っ て いま す の で 、 録 音 
で きる と ころ まで テー プ を 巻い て お い 
TCR SAN 


プロ グラ ム を セー ブ す る 


準備 が で きたら プロ グラ ム を セー ププ 
し まし ょ う 。 プ ログ ラム を セー ブ す る 
に は ファ イル 名 を つけ る 必要 が あり ま 
%; 

ファ イル 名 が 決ま っ た ら 、 デ ー タ レ 
ュ コーダ の 録音 ボタ ン を お し て 、 録 音 状 
態 に し ます 。 た だ し 、 リ モー ト 機 能 が 
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働い て いる の で 、 テ ー プ は まだ 回 り は 
じ め ま せん 。 表 1 の 「 セ ー ブ ノ ロー ド 
命令 一 覧 」 を 参照 し て 、 セ ー ブ 命 令 を 
入力 し 【RETURN】 を お し て くだ る 
い 。 テ ー プ が 回 り は じ め 、 プ ログ ラム 
が セー ブ る れ ま す 。 し ば らく し て 、「0 
K」 あ る い は 「Ready」 と 表示 る れれ 
ば 、 セ ー グ 完了 で す 。 
_ 機種 名 


= 


*PC-6001 プ mk II で は 、 電 源 を ON に 
し た 後 、 BASIC や ペー ジ の モー ド を 
選ぶ 必要 が あり ます 。 各 ゲー ム の 解 i 
の ペー ジ を 参照 し て モー ド を 選択 し て 
CONSU. 
*MZ シ リー ズ と X 1 は 、 最 初 に BAS 
IC を ロー ド す る 必要 が あり ます 。 目 的 
に 合わ せ て BASIC の 種類 を いく つか ヵ か 選 
ペ あ よう に が つて いま す の で い . 各 ゲ ー 
ム の 解説 の ペー ジ を 参照 し て くだ さい 。 
セー ブ し た プロ グラ ム を 確認 する 
プロ グラ ム の セー ブ が 終わ っ た だ た ら 、 
ベリ ファ イ (確認 ) 
ПУА セー グ も た プー テグ みか の 
が 正確 か どう か 確認 する 命令 で す 。 
が オグ あみ ム を セー プ し た チー アブ pE 
き 戻し て か ら 、 デ ー タ レコ ュー ダ の 再生 
ボタ ン を お し て 再生 状態 に し て お いて 
[RETURN] を な す と 、 ベ リフ ァ イ 


"aem | ees 
FM- 7 /8 SAVE LOAD LOAD ? 
NEW 7 /77 *CAS0 : ファ イル 名 " |“СА50:7»4//Я” | “CAS0 : ファ イル 名 " 
М2-700 ノ MZ-80B SAVE" フ ァイル 名 " LOAD VERIFY 
MZ-2000 /X I 
PG-8001,^mk1T CSAVE“ フ ァイル 名 "| CLOAD“ フ ァイル 名 "| CLOAD ? “ファ イル 名 
PC-6001/mk II 
ў SAVE 
PC-8801 7m k II "CAS1: ファ イル 名 " 


L Cara PL, 


人 ム プ ログ ラム の セー プ 例 (ЕМ- 7) 


LOAD LOAD ? 
“CAS1 : ファ イル 名 ” | “CAS1 : ファ イル 名 " 


中 と いう 表示 が で ます 。 

し ば らく し て 、「OK」 と か "Ready」 
と 表示 され れ ば ベリ ファ イ 完 了 で す 。 
テー プ に 正しく プロ グラ ム が セー ププ る 
た こと が 、 これ で 確認 て きた わけ て 
Fo 

も し 、 他 の メッ セー ジ が 出 た り 、 何 
も 表示 されない まま テー プ が 巻き 終わ 
っ て し まっ た だら セー ブ 失 敗 で す 。 ケー 
ブル の 接続 や 、 デ ー タ レコ ー ダ の 操作 


方 法 を 確認 し て か ら 、 もう 一 度 モ セーブ 


LAM UT UNS Ux 


4 ム A ベリ ファ イ 中 の 例 (FM-7 ) 


48 


プロ グラ ム の ロー ド | 


テー フ プ ' に セー ブ し た ブロ グラ ム は 、 
ロー ド 命 令 を 使っ て 簡単 に 呼び 出せ ま 
す 。 プ ログ ラム が セー ブ き る れ て いる テ 
ー フ "を デー タレ コー ダ ' に セッ ト UT. 
再生 ボタ ン を お し て くだ きい 。 

ロー ド 命 令 を 入力 し て [RETURN] 
を お せ ば テー プ パ が 回転 し 、 プ ログ ラム 
の ロー ド が 始ま り ま す 。 目 的 の プログ 
ラム を 見 つけ る と 、 画 面 に は 「Found : 
ファ イル 名 」 な ど と 表示 る れ 、 ブ ログ 
ラム が 読み こま れ て いき ます 。 し ば ら 
(Uc, ТОК, P 'Ready, て 表示 る 
れれ ば ロー ド 完 了 で す 。 プ ログ ラム を 
RUN る せ て くだ さい 。 

も し 、 ロ ー ド に 失敗 じ た と あな は 、 
デー タレ コー ダ の 音量 や 、 トーン を 調 
整 し て 何 度 か が トライ し て みて くだ る きる い 。 
画面 に 何 も 表示 る され な いと き に は 、 音 
量 を 大 きめ に 、 エ ラー・ メ ッ セ ー ジ が 
表示 され だ と き に は 小さ め に し ます 。 


ムロ ー ド 中 の 例 (FM- 7 ) 


プロ グラ ム を 入力 し よう 


この 本 で 援 っ て いる ゲー ム の うち 、 
PC-8801 ノ mkII 用 の 「Get 
は BASIC と 機械 語 か ら な る プロ グラ 
ACT, そこ で 、PC-8801 mk II の 


1 Ё) 


機械 語 の 入力 、 モ セー ブ ブ ロ ー ド の 方 法 


に つい て 説明 し まし ょ 3 う 。 


機械 語 を 扱う に は モニ ター を 使う 必 


要 が あり ます 。 


MON [J 


と 入力 し て くだ さい 。 画面 は 、 
h] W 


Сонет ЕС 
先頭 番地 」 と 入力 し て くだ きい 。 た と 


えば 、 先 頭 番 第 が D000 な ら 
h] SD000 


と 入力 し ます 。 入 力 前 の D000 番 地 の 記 
- 憶 内 容 が 表示 る され ます の で 、 1 バイ ト 
分 の 機械 語 を 入力 し て くだ さき るい 。 続い 
て 次 の 番地 が 表示 され ます 。 


How мапы fílesc0-155? 

МЕС М-88 BASIC Version 1.80 
Copyright (C? 1981 bu Microsoft 
$6799 Butes free 


Qk 
MON 


һ15рөге 
рава ee-g 


4 入力 中 の 画面 (PC-8801) 


プロ グラ ム を セー ブ す る 


機械 語 プ ログ ラム を セー ブ す る に は 、 


デー タレ ュー ダ を BASIC の と き と 同 
КАЛАА А БЕТ. 


h]W2 7 4 v4 АЯНЫ, 終了 番地 品 


959235 
終了 番地 は 、S コマ ン 
最後 の 番地 を 指定 


と 入力 し まず 。 
ド を 使っ て 入力 し た 
ү: д 


D841 FF-20 вә- Ө: FF- Төө өө- eB FF- 20 


8 po C 9-08 
ревс FF-88 80-80 ғғ-ва 90-40 ЕЕ-Өй 
BH PC OM. I gehe 


A t — ブ 中 の 画 ПШ (РО-8801) 


プロ グラ ム の ロー ド 


mans filesto- 4927 


1.8 
(C) 1981 ом Microsoft 
56799 Bytes free 
Ok 
MON 


hJRPOPCOM 


ムロ ー ド 中 の 画面 (PC-88 01 ) 
プロ グラ ム が セー ブ さ る され て いる テー 
プ を 、 デ ー タ レコ ー ダ に セッ ト し 、 


h] R フ ァイル 名 回 


を 大 表し も が くき tn ロード ki ua 
グラ ム を 実行 する と き に は 、 


h] СЭТ НЫ 


UR UIT Фф уй 


チェ ッ ク サ ム 


機械 語 プ ログ ラム は 、 入 力 ミ ス が あ 
っ て も BASIC の よう に エラ ー・ メ ッ 
セー ジ が 表示 る れる こと は あり ませ ん 。 
СС Е СУРУ АМАЛЙ 
だ た か どう か 確認 する た だ ため に チェ ッ ク サ 
ム ぃ ジロ グラ ム を 便 う こと なり ます 。 
機械 語 プ ログ ラム が ロー ド さ れ て いる 
状態 で 、 チ ェ ッ クサ ム ・ プ ログ ラム を 
акт. ЖБТ, 

チェ ッ ク し た い フ ログ ラム の 先頭 番 
地 を 聞い て きま す の で 入力 し て くだ きる 

画面 に 256 バ イト の ダン プリ スト と 
チェ ッ ク サ ム が 表示 され ます 。 

も し 、 ま ちがい が あれ ば エディ ッ ト 
コマ ンド で 修正 し て 、 セ モー ブ し な お し 
て くだ さい 。 


ت ةدك 


PC- 8801 用 チェ ッ ク サ ム ・ リ ズ ト 


INPUT "Hit RETURN キー“ 


| 100 UIDTH 90 | 
110 PRINT '24?-2 キー 7% ヒョウ シ " テイ シテ " ス * | 
120 INPUT "Start Address &H "';SA$ | 
130 INPUT "End Address &Н____';ЕАФ | 
140 SA-VAL(C'&H'«*SA$):EA-VAL(C"&H' +ЕАФ) | 
150 FOR 1=SA TO EA STEP 16:50М-0 ` ` | 
160 PRINT RIGHTS(C'000'«HEX$(IO,4)0;" '; 


FOR Ј=0 TO 15:DT=PEEK(I+J) 

PRINT РІСНТФ( 0 +HEX$(DT),2); " '; 
SUM-SUM*DT:NEXT J 

PRINT ':';RIGHT$C'Q" -*HEX$CSUMD , 2 ) 
АФ-ІМКЕҮ%:ІҒ A$-'' THEN 230 

А% 

MEXT I 


GET IT? で 使う 場合 、 ま ず ダ イレ クト モー ド で OLEAR300.&HBDFF 円 を 実行 する 。 | 


# 


ZB |1! 


е — 


` 


ж 
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コロ シンク ラマ 


a s" d 


\ с? CN 
| SEN à] 
¿L —— Y 
t 
\ 


> E か QUT Р, r, J % ыы 
r % — S 
Ё 東大 マイ コン クラ ピ ワ | 
"d 4 ^ me š жғ ж” “= _ 
; E Р. P d , e тв su ^^ 


定価 880 円 


І 
| 


BARA 18 監修 БІРЖА" 著 。 定価 880 円 s ; 
ーー о Ж 


y Жы, 
Р "i / / ` à ` 
J> HON X 
/ “ Гу ` 2 
/ ч "АУ, ` , 
d s f £ ` の Ç 
j ». a£ 


月 刊 ポ プ コ ム 連 載 中 
まん が の 主人 公 と 同時 進行 

マイ コン を どん どん マス ター。 
や っ ぱ り ヽ これ て す な 。 
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